PrusaSlicer-NonPlainar/lib/Slic3r/Line.pm

22 lines
402 B
Perl
Raw Normal View History

2011-09-01 19:06:28 +00:00
package Slic3r::Line;
2011-10-12 14:27:40 +00:00
use strict;
use warnings;
2011-09-01 19:06:28 +00:00
# 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;
2013-11-20 10:35:58 +00:00
return Slic3r::Polyline->new(@$self)->grow(@_);
}
2011-09-01 19:06:28 +00:00
1;