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

Use dclone() in Polyline and ExPolygon too

Browse source
This commit is contained in:
Alessandro Ranellucci 2013-07-05 14:46:32 +02:00
parent 8061cc6e30
commit 72f77a3420
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/Slic3r/ExPolygon.pm
View file

@ -9,6 +9,7 @@ use List::Util qw(first);
use Math::Geometry::Voronoi; use Math::Geometry::Voronoi;
use Slic3r::Geometry qw(X Y A B point_in_polygon same_line epsilon); use Slic3r::Geometry qw(X Y A B point_in_polygon same_line epsilon);
use Slic3r::Geometry::Clipper qw(union_ex JT_MITER); use Slic3r::Geometry::Clipper qw(union_ex JT_MITER);
use Storable qw();
# the constructor accepts an array of polygons # the constructor accepts an array of polygons
# or a Math::Clipper ExPolygon (hashref) # or a Math::Clipper ExPolygon (hashref)
@ -28,8 +29,7 @@ sub new {
} }
sub clone { sub clone {
my $self = shift; Storable::dclone($_[0])
return (ref $self)->new(map $_->clone, @$self);
} }
sub contour { sub contour {

4
lib/Slic3r/Polyline.pm
View file

@ -6,6 +6,7 @@ use Scalar::Util qw(reftype);
use Slic3r::Geometry qw(A B X Y X1 X2 Y1 Y2 polyline_remove_parallel_continuous_edges polyline_remove_acute_vertices use Slic3r::Geometry qw(A B X Y X1 X2 Y1 Y2 polyline_remove_parallel_continuous_edges polyline_remove_acute_vertices
polyline_lines move_points same_point); polyline_lines move_points same_point);
use Slic3r::Geometry::Clipper qw(JT_SQUARE); use Slic3r::Geometry::Clipper qw(JT_SQUARE);
use Storable qw();
# the constructor accepts an array(ref) of points # the constructor accepts an array(ref) of points
sub new { sub new {
@ -18,8 +19,7 @@ sub new {
} }
sub clone { sub clone {
my $self = shift; Storable::dclone($_[0])
return (ref $self)->new(map $_->clone, @$self);
} }
sub serialize { sub serialize {