juli/OrcaSlicer
1
1
Fork 0
mirror of https://github.com/OrcaSlicer/OrcaSlicer.git synced 2026-05-20 11:53:48 +00:00
Code Issues Packages Projects Releases Wiki Activity

Port PrintRegion::flow() and LayerRegion.flow() to XS

Browse Source
This commit is contained in:
Alessandro Ranellucci
2014-08-03 19:17:23 +02:00
parent 380dd8adfc
commit 7ff13c063f
11 changed files with 80 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lib/Slic3r/Layer/Region.pm
View File

@@ -28,18 +28,6 @@ sub print { return $_[0]->layer->print; }
sub config { return $_[0]->region->config; }
sub flow {
my ($self, $role, $bridge, $width) = @_;
return $self->region->flow(
$role,
$self->layer->height,
$bridge // 0,
$self->layer->id == 0,
$width,
$self->object,
);
}
sub merge_slices {
my ($self) = @_;
@@ -67,7 +55,7 @@ sub make_perimeters {
my $ext_pspacing = scale($ext_perimeter_flow->spacing_to($perimeter_flow));
# overhang perimeters
my $overhang_flow = $self->region->flow(FLOW_ROLE_PERIMETER, -1, 1, 0, undef, $self->layer->object);
my $overhang_flow = $self->region->flow(FLOW_ROLE_PERIMETER, -1, 1, 0, -1, $self->layer->object);
my $mm3_per_mm_overhang = $overhang_flow->mm3_per_mm;
# solid infill