Further simplification of point_in_polygon()

degen-loop-screen
Alessandro Ranellucci 2012-06-17 19:09:11 +02:00
parent 4f5870fdb6
commit 7d6545dd07
1 changed files with 2 additions and 6 deletions

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