160 lines
3.3 KiB
Perl
160 lines
3.3 KiB
Perl
package Slic3r::Polyline;
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Math::Clipper qw();
|
|
use Scalar::Util qw(reftype);
|
|
use Slic3r::Geometry qw(A B polyline_remove_parallel_continuous_edges polyline_remove_acute_vertices
|
|
polyline_lines move_points same_point);
|
|
|
|
# the constructor accepts an array(ref) of points
|
|
sub new {
|
|
my $class = shift;
|
|
my $self;
|
|
if (@_ == 1) {
|
|
$self = [ @{$_[0]} ];
|
|
} else {
|
|
$self = [ @_ ];
|
|
}
|
|
|
|
bless $self, $class;
|
|
bless $_, 'Slic3r::Point' for @$self;
|
|
$self;
|
|
}
|
|
|
|
sub clone {
|
|
my $self = shift;
|
|
return (ref $self)->new(map $_->clone, @$self);
|
|
}
|
|
|
|
sub serialize {
|
|
my $self = shift;
|
|
return pack 'l*', map @$_, @$self;
|
|
}
|
|
|
|
sub deserialize {
|
|
my $class = shift;
|
|
my ($s) = @_;
|
|
|
|
my @v = unpack '(l2)*', $s;
|
|
return $class->new(map [ $v[2*$_], $v[2*$_+1] ], 0 .. int($#v/2));
|
|
}
|
|
|
|
sub is_serialized {
|
|
my $self = shift;
|
|
return (reftype $self) eq 'SCALAR' ? 1 : 0;
|
|
}
|
|
|
|
sub lines {
|
|
my $self = shift;
|
|
return polyline_lines($self);
|
|
}
|
|
|
|
sub boost_linestring {
|
|
my $self = shift;
|
|
return Boost::Geometry::Utils::linestring($self);
|
|
}
|
|
|
|
sub merge_continuous_lines {
|
|
my $self = shift;
|
|
polyline_remove_parallel_continuous_edges($self);
|
|
}
|
|
|
|
sub remove_acute_vertices {
|
|
my $self = shift;
|
|
polyline_remove_acute_vertices($self);
|
|
}
|
|
|
|
sub simplify {
|
|
my $self = shift;
|
|
my $tolerance = shift || 10;
|
|
|
|
@$self = @{ Slic3r::Geometry::douglas_peucker($self, $tolerance) };
|
|
bless $_, 'Slic3r::Point' for @$self;
|
|
}
|
|
|
|
sub reverse {
|
|
my $self = shift;
|
|
@$self = CORE::reverse @$self;
|
|
}
|
|
|
|
sub length {
|
|
my $self = shift;
|
|
my $length = 0;
|
|
$length += $_->length for $self->lines;
|
|
return $length;
|
|
}
|
|
|
|
# this only applies to polylines
|
|
sub grow {
|
|
my $self = shift;
|
|
return Slic3r::Polygon->new(@$self, CORE::reverse @$self[1..-2])->offset(@_);
|
|
}
|
|
|
|
sub nearest_point_to {
|
|
my $self = shift;
|
|
my ($point) = @_;
|
|
|
|
$point = Slic3r::Geometry::nearest_point($point, $self);
|
|
return Slic3r::Point->new($point);
|
|
}
|
|
|
|
sub nearest_point_index_to {
|
|
my $self = shift;
|
|
my ($point) = @_;
|
|
return Slic3r::Geometry::nearest_point_index($point, $self);
|
|
}
|
|
|
|
sub has_segment {
|
|
my $self = shift;
|
|
my ($line) = @_;
|
|
|
|
for ($self->lines) {
|
|
return 1 if $_->has_segment($line);
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
sub clip_with_polygon {
|
|
my $self = shift;
|
|
my ($polygon) = @_;
|
|
|
|
return $self->clip_with_expolygon(Slic3r::ExPolygon->new($polygon));
|
|
}
|
|
|
|
sub clip_with_expolygon {
|
|
my $self = shift;
|
|
my ($expolygon) = @_;
|
|
|
|
my $result = Boost::Geometry::Utils::polygon_linestring_intersection(
|
|
$expolygon->boost_polygon,
|
|
$self->boost_linestring,
|
|
);
|
|
bless $_, 'Slic3r::Polyline' for @$result;
|
|
bless $_, 'Slic3r::Point' for map @$_, @$result;
|
|
return @$result;
|
|
}
|
|
|
|
sub bounding_box {
|
|
my $self = shift;
|
|
return Slic3r::Geometry::bounding_box($self);
|
|
}
|
|
|
|
sub rotate {
|
|
my $self = shift;
|
|
my ($angle, $center) = @_;
|
|
@$self = Slic3r::Geometry::rotate_points($angle, $center, @$self);
|
|
bless $_, 'Slic3r::Point' for @$self;
|
|
return $self;
|
|
}
|
|
|
|
sub translate {
|
|
my $self = shift;
|
|
my ($x, $y) = @_;
|
|
@$self = Slic3r::Geometry::move_points([$x, $y], @$self);
|
|
bless $_, 'Slic3r::Point' for @$self;
|
|
return $self;
|
|
}
|
|
|
|
1;
|