Fix concentric infill and add regression test. #1432

This commit is contained in:
Alessandro Ranellucci 2013-09-12 11:13:11 +02:00
parent 749b8421b0
commit 5f54d0eb90
2 changed files with 7 additions and 7 deletions

View file

@ -29,7 +29,7 @@ sub fill_surface {
# compensate the overlap which is good for rectilinear but harmful for concentric
# where the perimeter/infill spacing should be equal to any other loop spacing
my @loops = my @last = @{offset($expolygon, -&Slic3r::INFILL_OVERLAP_OVER_SPACING * $min_spacing / 2)};
my @loops = my @last = @{offset(\@$expolygon, -&Slic3r::INFILL_OVERLAP_OVER_SPACING * $min_spacing / 2)};
while (@last) {
push @loops, @last = @{offset2(\@last, -1.5*$distance, +0.5*$distance)};
}
@ -41,9 +41,9 @@ sub fill_surface {
# order paths using a nearest neighbor search
my @paths = ();
my $last_pos = [0,0];
my $last_pos = Slic3r::Point->new(0,0);
foreach my $loop (@loops) {
push @paths, $loop->split_at_index($last_pos->nearest_point_index($loop));
push @paths, $loop->split_at_index($last_pos->nearest_point_index(\@$loop));
$last_pos = $paths[-1][-1];
}