12345678910111213141516171819 |
- package Slic3r::Line;
- use strict;
- use warnings;
- # a line is a two-points line
- use parent 'Slic3r::Polyline';
- 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;
|