Refactor extrusion logic in a dedicated class

This commit is contained in:
Alessandro Ranellucci 2011-09-26 11:42:08 +02:00
parent 415d1a5170
commit 081f65852d
4 changed files with 158 additions and 110 deletions

View file

@ -86,8 +86,7 @@ sub make_perimeter {
for (my $i = $Slic3r::skirts - 1; $i >= 0; $i--) {
my $distance = ($Slic3r::skirt_distance + ($Slic3r::flow_width * $i)) / $Slic3r::resolution;
my $outline = offset([$convex_hull_points], $distance, 0.1, JT_ROUND);
push @{$outline->[0]}, $outline->[0][0]; # repeat first point as last to complete the loop
push @{ $layer->skirts }, Slic3r::ExtrusionPath->cast([ @{$outline->[0]} ]);
push @{ $layer->skirts }, Slic3r::ExtrusionLoop->cast([ @{$outline->[0]} ]);
}
}
}