2011-09-01 23:06:28 +04:00
|
|
|
package Slic3r::Polyline;
|
2011-12-30 22:59:51 +04:00
|
|
|
use strict;
|
|
|
|
use warnings;
|
2011-09-01 23:06:28 +04:00
|
|
|
|
2013-11-22 19:19:15 +04:00
|
|
|
use Slic3r::Geometry qw(A B X Y X1 X2 Y1 Y2);
|
2013-04-27 17:02:13 +04:00
|
|
|
use Slic3r::Geometry::Clipper qw(JT_SQUARE);
|
2013-07-05 16:46:32 +04:00
|
|
|
use Storable qw();
|
2011-09-18 21:28:12 +04:00
|
|
|
|
2013-07-16 19:13:01 +04: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);
|
|
|
|
}
|
|
|
|
|
2012-12-20 21:10:20 +04:00
|
|
|
sub wkt {
|
|
|
|
my $self = shift;
|
|
|
|
return sprintf "LINESTRING((%s))", join ',', map "$_->[0] $_->[1]", @$self;
|
|
|
|
}
|
|
|
|
|
2011-11-13 21:14:02 +04:00
|
|
|
sub bounding_box {
|
|
|
|
my $self = shift;
|
2013-06-16 14:21:25 +04:00
|
|
|
return Slic3r::Geometry::BoundingBox->new_from_points($self);
|
2011-11-13 21:14:02 +04:00
|
|
|
}
|
|
|
|
|
2012-08-29 21:37:27 +04:00
|
|
|
sub size {
|
|
|
|
my $self = shift;
|
2012-11-19 20:39:16 +04:00
|
|
|
return [ Slic3r::Geometry::size_2D($self) ];
|
2012-09-12 18:30:44 +04:00
|
|
|
}
|
|
|
|
|
|
|
|
sub align_to_origin {
|
|
|
|
my $self = shift;
|
2013-06-16 14:21:25 +04:00
|
|
|
my $bb = $self->bounding_box;
|
|
|
|
return $self->translate(-$bb->x_min, -$bb->y_min);
|
2012-08-29 21:37:27 +04:00
|
|
|
}
|
|
|
|
|
2011-09-01 23:06:28 +04:00
|
|
|
1;
|