Fill gaps using medial axis detection

This commit is contained in:
Alessandro Ranellucci 2012-01-12 22:05:35 +01:00
parent a3a9cf5749
commit 90d10b24a8
7 changed files with 31 additions and 10 deletions

View file

@ -26,7 +26,7 @@ sub split_at {
# find index of point
my $i = -1;
for (my $n = 0; $n <= $#{$self->polygon}; $n++) {ZZZ "here" if ref $self->polygon->[$n] eq 'ARRAY';
for (my $n = 0; $n <= $#{$self->polygon}; $n++) {
if ($point->id eq $self->polygon->[$n]->id) {
$i = $n;
last;