mirror of
				https://github.com/SoftFever/OrcaSlicer.git
				synced 2025-11-02 12:41:18 -07:00 
			
		
		
		
	
		
			
				
	
	
		
			15 lines
		
	
	
	
		
			354 B
		
	
	
	
		
			Perl
		
	
	
	
	
	
			
		
		
	
	
			15 lines
		
	
	
	
		
			354 B
		
	
	
	
		
			Perl
		
	
	
	
	
	
package Slic3r::Surface;
 | 
						|
use strict;
 | 
						|
use warnings;
 | 
						|
 | 
						|
require Exporter;
 | 
						|
our @ISA = qw(Exporter);
 | 
						|
our @EXPORT_OK   = qw(S_TYPE_TOP S_TYPE_BOTTOM S_TYPE_BOTTOMBRIDGE S_TYPE_INTERNAL S_TYPE_INTERNALSOLID S_TYPE_INTERNALBRIDGE S_TYPE_INTERNALVOID);
 | 
						|
our %EXPORT_TAGS = (types => \@EXPORT_OK);
 | 
						|
 | 
						|
sub p {
 | 
						|
    my $self = shift;
 | 
						|
    return @{$self->polygons};
 | 
						|
}
 | 
						|
 | 
						|
1;
 |