Line.pm 367 B

12345678910111213141516171819
  1. package Slic3r::Line;
  2. use strict;
  3. use warnings;
  4. # a line is a two-points line
  5. use parent 'Slic3r::Polyline';
  6. sub intersection {
  7. my $self = shift;
  8. my ($line, $require_crossing) = @_;
  9. return Slic3r::Geometry::line_intersection($self, $line, $require_crossing);
  10. }
  11. sub grow {
  12. my $self = shift;
  13. return Slic3r::Polyline->new(@$self)->grow(@_);
  14. }
  15. 1;