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

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
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 $n = @$polygon;
my @x;
my @y;
foreach (0..$n-1) {
push @x, $polygon->[$_]->[X];
push @y, $polygon->[$_]->[Y];
}
my @x = map $_->[X], @$polygon;
my @y = map $_->[Y], @$polygon;
# Derived from the comp.graphics.algorithms FAQ,
# courtesy of Wm. Randolph Franklin