More integration of Slic3r::Point::XS

This commit is contained in:
Alessandro Ranellucci 2013-07-15 16:04:49 +02:00
parent 159a009f96
commit c9749ca3b3
9 changed files with 80 additions and 17 deletions

View file

@ -386,7 +386,10 @@ sub rotate_points {
sub move_points {
my ($shift, @points) = @_;
return map Slic3r::Point->new($shift->[X] + $_->[X], $shift->[Y] + $_->[Y]), @points;
return map {
my @p = @$_;
Slic3r::Point->new($shift->[X] + $p[X], $shift->[Y] + $p[Y]);
} @points;
}
sub move_points_3D {