2011-09-01 19:06:28 +00:00
|
|
|
package Slic3r::Polyline;
|
2011-12-30 18:59:51 +00:00
|
|
|
use strict;
|
|
|
|
|
use warnings;
|
2011-09-01 19:06:28 +00:00
|
|
|
|
2014-11-15 22:06:15 +00:00
|
|
|
use Slic3r::Geometry qw(X Y);
|
2011-09-18 17:28:12 +00:00
|
|
|
|
2013-07-16 15:13:01 +00:00
|
|
|
sub new_scale {
|
|
|
|
|
my $class = shift;
|
|
|
|
|
my @points = map { ref($_) eq 'Slic3r::Point' ? $_->pp : $_ } @_;
|
|
|
|
|
return $class->new(map [ Slic3r::Geometry::scale($_->[X]), Slic3r::Geometry::scale($_->[Y]) ], @points);
|
|
|
|
|
}
|
|
|
|
|
|
2011-09-01 19:06:28 +00:00
|
|
|
1;
|
