OrcaSlicer-bambulab/lib/Slic3r/Polyline.pm

package Slic3r::Polyline;
use strict;
use warnings;

use Slic3r::Geometry qw(X Y epsilon);
use Slic3r::Geometry::Clipper qw(JT_SQUARE);

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);
}

sub wkt {
    my $self = shift;
    return sprintf "LINESTRING((%s))", join ',', map "$_->[0] $_->[1]", @$self;
}

sub bounding_box {
    my $self = shift;
    return Slic3r::Geometry::BoundingBox->new_from_points([ @$self ]);
}

sub size {
    my $self = shift;
    return [ Slic3r::Geometry::size_2D($self) ];
}

sub is_straight {
    my ($self) = @_;
    
    my $last_dir;
    foreach my $line (@{$self->lines}) {
        my $dir = $line->direction;
        if (defined $last_dir) {
            if (abs($dir - $last_dir) > epsilon) {
                return 0;
            }
        }
        $last_dir = $dir;
    }
    
    return 1;
}

1;