diff options
| author | Alessandro Ranellucci <aar@cpan.org> | 2011-11-28 21:37:53 +0400 |
|---|---|---|
| committer | Alessandro Ranellucci <aar@cpan.org> | 2011-11-28 21:37:53 +0400 |
| commit | 975387d9533bb798c351129a0a538e91664a4f77 (patch) | |
| tree | 90a1b07e46ab9ad2eae542c8761e3e1bf84eec48 /lib/Slic3r/ExtrusionLoop.pm | |
| parent | 7b50e1bead984cc2a853b1470124a6804b18f6cc (diff) | |
New --bridge-feed-rate option. #68
Diffstat (limited to 'lib/Slic3r/ExtrusionLoop.pm')
| -rw-r--r-- | lib/Slic3r/ExtrusionLoop.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Slic3r/ExtrusionLoop.pm b/lib/Slic3r/ExtrusionLoop.pm index 38b17a7fe..50998e808 100644 --- a/lib/Slic3r/ExtrusionLoop.pm +++ b/lib/Slic3r/ExtrusionLoop.pm @@ -5,6 +5,9 @@ use XXX; extends 'Slic3r::Polyline::Closed'; +# perimeter/fill/bridge/skirt +has 'role' => (is => 'ro', required => 1); + sub split_at { my $self = shift; my ($point) = @_; @@ -25,7 +28,7 @@ sub split_at { push @new_points, @{$self->points}[$i .. $#{$self->points}]; push @new_points, @{$self->points}[0 .. $i]; - return Slic3r::ExtrusionPath->new(points => [@new_points]); + return Slic3r::ExtrusionPath->new(points => [@new_points], role => $self->role); } 1; |