3DPrinting/PrusaSlicer-NonPlainar
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove sporadic duplicate useless lines. #772

Browse Source
This commit is contained in:
Alessandro Ranellucci 2013-02-04 14:27:23 +01:00
parent 3794d51cc7
commit 7d08796b0a
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/Slic3r/Polygon.pm
View File

@ -141,7 +141,7 @@ sub split_at_index {
my $self = shift;
my ($index) = @_;
return (ref $self)->new(
return Slic3r::Polyline->new(
@$self[$index .. $#$self],
@$self[0 .. $index],
);

11
t/geometry.t
View File

@ -2,7 +2,7 @@ use Test::More;
use strict;
use warnings;
plan tests => 21;
plan tests => 23;
BEGIN {
use FindBin;
@ -165,3 +165,12 @@ is Slic3r::Geometry::can_connect_points(@$points, $polygons), 0, 'can_connect_po
}
#==========================================================
{
my $polyline = Slic3r::Polygon->new([0, 0], [10, 0], [5, 5]);
my $result = $polyline->split_at_index(1);
is ref($result), 'Slic3r::Polyline', 'split_at_index returns polyline';
is_deeply $result, [ [10, 0], [5, 5], [0, 0], [10, 0] ], 'split_at_index';
}
#==========================================================