3DPrinting/PrusaSlicer-NonPlainar
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Adjust extra perimeters

Browse source
This commit is contained in:
Alessandro Ranellucci 2013-02-24 17:04:19 +01:00
parent c3dde74776
commit bd76e7677c
1 changed files with 5 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
lib/Slic3r/Print/Object.pm
View file

@ -212,25 +212,16 @@ sub make_perimeters {
my $overlap = $perimeter_spacing; # one perimeter my $overlap = $perimeter_spacing; # one perimeter
# compute polygons representing the thickness of the first external perimeter of # compute the polygon used to trigger the additional perimeters: the hole represents
# the upper layer slices # the required overlap, while the contour represents how different should the slices be
# (thus how horizontal should the slope be) before extra perimeters are not generated, and
# normal solid infill is used
my $upper = diff_ex( my $upper = diff_ex(
[ map @{$_->expolygon}, @{$upper_layerm->slices} ], [ map @$_, map $_->expolygon->offset_ex($overlap), @{$upper_layerm->slices} ],
[ map @$_, map $_->expolygon->offset_ex(-$overlap), @{$upper_layerm->slices} ], [ map @$_, map $_->expolygon->offset_ex(-$overlap), @{$upper_layerm->slices} ],
); );
next if !@$upper; next if !@$upper;
# we need to limit our detection to the areas which would actually benefit from
# more perimeters. so, let's compute the area we want to ignore
my $ignore = [];
{
my $diff = diff_ex(
[ map @$_, map $_->expolygon->offset_ex(- $Slic3r::Config->perimeters * $perimeter_spacing), @{$layerm->slices} ],
[ map @$_, map $_->expolygon->offset_ex(- 0.5*$perimeter_spacing), @{$upper_layerm->slices} ],
);
$ignore = [ map @$_, map $_->offset_ex($perimeter_spacing), @$diff ];
}
foreach my $slice (@{$layerm->slices}) { foreach my $slice (@{$layerm->slices}) {
my $hypothetical_perimeter_num = $Slic3r::Config->perimeters + 1; my $hypothetical_perimeter_num = $Slic3r::Config->perimeters + 1;
CYCLE: while (1) { CYCLE: while (1) {
@ -246,9 +237,7 @@ sub make_perimeters {
} }
last CYCLE if !@$hypothetical_perimeter; last CYCLE if !@$hypothetical_perimeter;
my $intersection = intersection_ex([ map @$_, @$upper ], [ map @$_, @$hypothetical_perimeter ]); my $intersection = intersection_ex([ map @$_, @$upper ], [ map @$_, @$hypothetical_perimeter ]);
$intersection = diff_ex([ map @$_, @$intersection ], $ignore) if @$ignore;
last CYCLE if !@{ $intersection }; last CYCLE if !@{ $intersection };
Slic3r::debugf " adding one more perimeter at layer %d\n", $layer_id; Slic3r::debugf " adding one more perimeter at layer %d\n", $layer_id;
$slice->additional_inner_perimeters(($slice->additional_inner_perimeters || 0) + 1); $slice->additional_inner_perimeters(($slice->additional_inner_perimeters || 0) + 1);