next unless $occurs_m->($ei);
#print STDERR " sea occurs_m $ei $poly->[$ei]{VxName}\n";
next unless $occurs_m->($ei-1);
- my $dleft = &mkvec(@{ $c{PA}{OuterCoastDelta} });
+ my $delta = &mkvec(@{ $c{PA}{OuterCoastDelta} });
foreach my $which (0,-1) {
my $ej = ($ei + $which + @$poly) % @$poly;
my $ek = ($ei + +1 + 3*$which + @$poly) % @$poly;
$$posk = $$posj + 10 * &mkvec(@{ $paocv->{PA} });
}
}
- $$posj = $$posj + $dleft + $dout*10;
+ $$posj = $$posj + $delta + $dout*10;
$$posk = $$posk + $dout*10;
}
}