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

Merge pull request #454 from beanz/trivial-speed-up-point-in-polygon

Browse Source 
Simplify creation of $n, @x and @y in point_in_polygon test.
This commit is contained in:
Alessandro Ranellucci 2012-06-17 10:06:11 -07:00
commit 4f5870fdb6
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lib/Slic3r/Geometry.pm
View File

@ -154,15 +154,16 @@ sub point_in_polygon {
my ($point, $polygon) = @_; my ($point, $polygon) = @_;
my ($x, $y) = @$point; my ($x, $y) = @$point;
my @xy = map @$_, @$polygon; my $n = @$polygon;
my @x;
my @y;
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
my $n = @xy / 2; # Number of points in polygon
my @i = map { 2*$_ } 0..(@xy/2); # The even indices of @xy
my @x = map { $xy[$_] } @i; # Even indices: x-coordinates
my @y = map { $xy[$_ + 1] } @i; # Odd indices: y-coordinates
my ($i, $j); my ($i, $j);
my $side = 0; # 0 = outside; 1 = inside my $side = 0; # 0 = outside; 1 = inside
for ($i = 0, $j = $n - 1; $i < $n; $j = $i++) { for ($i = 0, $j = $n - 1; $i < $n; $j = $i++) {