3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-10-30 12:11:15 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Replace Math::ConvexHull with Math::ConvexHull::MonotoneChain. #722

Browse source
This commit is contained in:
Alessandro Ranellucci 2012-10-22 15:29:54 +02:00
parent 68c3a0dd61
commit c793a2657f
3 changed files with 6 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/Slic3r/Print.pm
View file

@ -4,9 +4,9 @@ use Moo;
use File::Basename qw(basename fileparse);
use File::Spec;
use List::Util qw(max);
use Math::ConvexHull 1.0.4 qw(convex_hull);
use Math::ConvexHull::MonotoneChain qw(convex_hull);
use Slic3r::ExtrusionPath ':roles';
use Slic3r::Geometry qw(X Y Z X1 Y1 X2 Y2 MIN PI scale unscale move_points nearest_point remove_coinciding_points);
use Slic3r::Geometry qw(X Y Z X1 Y1 X2 Y2 MIN PI scale unscale move_points nearest_point);
use Slic3r::Geometry::Clipper qw(diff_ex union_ex intersection_ex offset JT_ROUND JT_SQUARE);
use Time::HiRes qw(gettimeofday tv_interval);
@ -139,7 +139,6 @@ sub validate {
my $clearance;
{
my @points = map [ @$_[X,Y] ], map @{$_->vertices}, @{$self->objects->[$obj_idx]->meshes};
remove_coinciding_points(\@points);
my $convex_hull = Slic3r::Polygon->new(convex_hull(\@points));
$clearance = +($convex_hull->offset(scale $Slic3r::Config->extruder_clearance_radius / 2, 1, JT_ROUND))[0];
}
@ -565,7 +564,6 @@ sub make_skirt {
return if @points < 3; # at least three points required for a convex hull
# find out convex hull
remove_coinciding_points(\@points);
my $convex_hull = convex_hull(\@points);
# draw outlines from outside to inside