2011-09-25 21:15:45 +00:00
|
|
|
package Slic3r::ExtrusionLoop;
|
2013-07-15 14:21:09 +00:00
|
|
|
use strict;
|
|
|
|
use warnings;
|
2011-09-25 21:15:45 +00:00
|
|
|
|
|
|
|
sub split_at {
|
|
|
|
my $self = shift;
|
|
|
|
|
2012-10-30 14:29:13 +00:00
|
|
|
return Slic3r::ExtrusionPath->new(
|
2013-07-16 07:49:34 +00:00
|
|
|
polyline => $self->polygon->split_at(@_),
|
2012-10-30 14:29:13 +00:00
|
|
|
role => $self->role,
|
2014-01-03 17:27:46 +00:00
|
|
|
mm3_per_mm => $self->mm3_per_mm,
|
2012-10-30 14:29:13 +00:00
|
|
|
);
|
2011-09-25 21:15:45 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
1;
|