3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-07-15 02:37:51 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

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 ($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