Promising approach to medial axis pruning

This commit is contained in:
Alessandro Ranellucci 2014-03-04 23:33:13 +01:00
parent 8644440070
commit 3c77b301a7
13 changed files with 126 additions and 326 deletions

View file

@ -10,7 +10,7 @@ BEGIN {
}
use Slic3r;
use Slic3r::Geometry qw(line_atan line_direction rad2deg_dir angle3points PI);
use Slic3r::Geometry qw(rad2deg_dir angle3points PI);
#==========================================================
@ -61,3 +61,13 @@ use Slic3r::Geometry qw(line_atan line_direction rad2deg_dir angle3points PI);
}
#==========================================================
sub line_atan {
my ($l) = @_;
return Slic3r::Line->new(@$l)->atan2_;
}
sub line_direction {
my ($l) = @_;
return Slic3r::Line->new(@$l)->direction;
}