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
|
||||
my @holes = ();
|
||||
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
|
||||
$i--;
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue