3DPrinting/PrusaSlicer-NonPlainar
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Further simplification of point_in_polygon()

Browse Source
This commit is contained in:
Alessandro Ranellucci 2012-06-17 19:09:11 +02:00
parent 4f5870fdb6
commit 7d6545dd07
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/Slic3r/Geometry.pm
View File

@ -155,12 +155,8 @@ sub point_in_polygon {
my ($x, $y) = @$point; my ($x, $y) = @$point;
my $n = @$polygon; my $n = @$polygon;
my @x; my @x = map $_->[X], @$polygon;
my @y; my @y = map $_->[Y], @$polygon;
foreach (0..$n-1) {
push @x, $polygon->[$_]->[X];
push @y, $polygon->[$_]->[Y];
}
# Derived from the comp.graphics.algorithms FAQ, # Derived from the comp.graphics.algorithms FAQ,
# courtesy of Wm. Randolph Franklin # courtesy of Wm. Randolph Franklin