Remove useless subroutines

This commit is contained in:
Alessandro Ranellucci 2012-08-25 20:14:52 +02:00
parent a1ac866b84
commit a1a4d97f9f

View file

@ -4,7 +4,7 @@ use warnings;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(explode_expolygon explode_expolygons safety_offset offset offset_ex
our @EXPORT_OK = qw(safety_offset offset offset_ex
diff_ex diff union_ex intersection_ex xor_ex PFT_EVENODD JT_MITER JT_ROUND
JT_SQUARE is_counter_clockwise);
@ -12,16 +12,6 @@ use Math::Clipper 1.09 qw(:cliptypes :polyfilltypes :jointypes is_counter_clockw
use Slic3r::Geometry qw(scale);
our $clipper = Math::Clipper->new;
sub explode_expolygon {
my ($expolygon) = @_;
return ($expolygon->{outer}, @{ $expolygon->{holes} });
}
sub explode_expolygons {
my ($expolygons) = @_;
return map explode_expolygon($_), @$expolygons;
}
sub safety_offset {
my ($polygons, $factor) = @_;
return Math::Clipper::offset($polygons, $factor || (scale 1e-05), 100, JT_MITER, 2);