Slic3r/lib/Slic3r/Line.pm

package Slic3r::Line;
use strict;
use warnings;

# a line is a two-points line
use parent 'Slic3r::Polyline';

use Slic3r::Geometry qw(A B X Y);

sub intersection {
    my $self = shift;
    my ($line, $require_crossing) = @_;
    return Slic3r::Geometry::line_intersection($self, $line, $require_crossing);
}

sub grow {
    my $self = shift;
    return Slic3r::Polyline->new(@$self)->grow(@_);
}

1;