Adapt new code to contains_point()
This commit is contained in:
parent
fc4483d09c
commit
b47b8ee34f
1 changed files with 1 additions and 1 deletions
|
@ -249,7 +249,7 @@ sub make_perimeters {
|
||||||
# $polynode is the outermost loop of an island
|
# $polynode is the outermost loop of an island
|
||||||
my @holes = ();
|
my @holes = ();
|
||||||
for (my $i = 0; $i <= $#$holes_pt; $i++) {
|
for (my $i = 0; $i <= $#$holes_pt; $i++) {
|
||||||
if ($polynode->{outer}->encloses_point($holes_pt->[$i]{outer}->first_point)) {
|
if ($polynode->{outer}->contains_point($holes_pt->[$i]{outer}->first_point)) {
|
||||||
push @holes, splice @$holes_pt, $i, 1; # remove from candidates to reduce complexity
|
push @holes, splice @$holes_pt, $i, 1; # remove from candidates to reduce complexity
|
||||||
$i--;
|
$i--;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Add table
Reference in a new issue