juli/OrcaSlicer
1
1
Fork 0
mirror of https://github.com/OrcaSlicer/OrcaSlicer.git synced 2026-05-18 19:12:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

Ported ExtrusionPath::Collection

Browse Source
This commit is contained in:
Alessandro Ranellucci
2013-07-18 19:09:07 +02:00
parent 0efea9e442
commit c030e38908
18 changed files with 181 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
lib/Slic3r/ExtrusionPath/Collection.pm
View File

@@ -1,25 +1,19 @@
package Slic3r::ExtrusionPath::Collection;
use Moo;
has 'paths' => (is => 'rw', default => sub { [] });
has 'no_sort' => (is => 'rw');
# no-op
sub unpack { $_[0] }
use strict;
use warnings;
sub first_point {
my $self = shift;
return $self->paths->[0]->polyline->[0];
return $self->[0]->[0];
}
# Note that our paths will be reversed in place when necessary.
# (Same algorithm as Polyline::Collection)
sub chained_path {
my $self = shift;
my ($start_near, $no_reverse) = @_;
return @{$self->paths} if $self->no_sort;
my @my_paths = @{$self->paths};
my @my_paths = @$self;
return @my_paths if $self->no_sort;
my @paths = ();
my $start_at;
@@ -34,6 +28,7 @@ sub chained_path {
my $path_index = int($start_index/2);
if ($start_index % 2 && !$no_reverse) { # index is end so reverse to make it the start
# path is reversed in place, but we got a copy from XS
$my_paths[$path_index]->reverse;
}
push @paths, splice @my_paths, $path_index, 1;