mirror of
				https://github.com/SoftFever/OrcaSlicer.git
				synced 2025-11-02 12:41:18 -07:00 
			
		
		
		
	
		
			
				
	
	
		
			19 lines
		
	
	
	
		
			367 B
		
	
	
	
		
			Perl
		
	
	
	
	
	
			
		
		
	
	
			19 lines
		
	
	
	
		
			367 B
		
	
	
	
		
			Perl
		
	
	
	
	
	
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;
 |