juli/OrcaSlicer
1
1
Fork 0
mirror of https://github.com/OrcaSlicer/OrcaSlicer.git synced 2026-05-18 19:12:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge perimeters of adjacent regions having the same perimeter settings

Browse Source
This commit is contained in:
Alessandro Ranellucci
2014-07-12 15:28:21 +02:00
parent 212558acd4
commit bcc8e356b2
2 changed files with 75 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -41,7 +41,7 @@ sub flow {
}
sub make_perimeters {
my $self = shift;
my ($self, $slices, $fill_surfaces) = @_;
# other perimeters
my $perimeter_flow = $self->flow(FLOW_ROLE_PERIMETER);
@@ -73,7 +73,6 @@ sub make_perimeters {
my $ext_min_spacing = $ext_pspacing * (1 - &Slic3r::INSET_OVERLAP_TOLERANCE);
$self->perimeters->clear;
$self->fill_surfaces->clear;
$self->thin_fills->clear;
my @contours = (); # array of Polygons with ccw orientation
@@ -82,7 +81,7 @@ sub make_perimeters {
# we need to process each island separately because we might have different
# extra perimeters for each one
foreach my $surface (@{$self->slices}) {
foreach my $surface (@$slices) {
# detect how many perimeters must be generated for this island
my $loop_number = $self->config->perimeters + ($surface->extra_perimeters || 0);
@@ -187,7 +186,7 @@ sub make_perimeters {
# and then we offset back and forth by half the infill spacing to only consider the
# non-collapsing regions
my $min_perimeter_infill_spacing = $ispacing * (1 - &Slic3r::INSET_OVERLAP_TOLERANCE);
$self->fill_surfaces->append(
$fill_surfaces->append(
map Slic3r::Surface->new(expolygon => $_, surface_type => S_TYPE_INTERNAL), # use a bogus surface type
@{offset2_ex(
[ map @{$_->simplify_p(&Slic3r::SCALED_RESOLUTION)}, @{union_ex(\@last)} ],