my $dout = $$posk - $$posj;
#print STDERR " sea adj j=$ej ",prvec($$posj)," $poly->[$ej]{VxName}\n";
#print STDERR " sea adj k=$ek ",prvec($$posk)," $poly->[$ek]{VxName}\n";
- if ($poly->[$ej]{VxName} =~ /Noorderzijlvest/) {
- #print STDERR " sea adj extra\n";
- $$posk = $$posj + 10 * mkvec(100,-50);
+ foreach my $paocv (@{ $c{PA_Outercoast_Vertices} }) {
+ if ($poly->[$ej]{VxName} =~ m{$paocv->{Re}}) {
+ #print STDERR " sea adj extra\n";
+ $$posk = $$posj + 10 * &mkvec(@{ $paocv->{PA} });
+ }
}
$$posj = $$posj + $dleft + $dout*10;
$$posk = $$posk + $dout*10;
PA => {
OuterCoastDelta => [ -1000, 0 ],
},
+ PA_Outercoast_Vertices => [
+ { Re => qr{Noorderzijlvest}, PA => [ 100,-50 ] },
+ ],
);