move into misc-data.pl: PA_Outercoast_Vertices Noorderzijlvest

[pandemic-rising-tide.git] / generate-board

diff --git a/generate-board b/generate-board
index 06b5916f63b033d2863b8cf7c8a86ac823f0f6bb..b48f8bc2d8be1018e544d6053644dfac09461114 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -272,7 +272,7 @@ sub adjust_sea() {
     next unless $occurs_m->($ei);
     #print STDERR " sea occurs_m $ei $poly->[$ei]{VxName}\n";
     next unless $occurs_m->($ei-1);
-    my $dleft = mkvec(-1000,0);
+    my $dleft = &mkvec(@{ $c{PA}{OuterCoastDelta} });
     foreach my $which (0,-1) {
       my $ej = ($ei +        $which + @$poly) % @$poly;
       my $ek = ($ei + +1 + 3*$which + @$poly) % @$poly;
@@ -281,9 +281,11 @@ sub adjust_sea() {
       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;
@@ -617,7 +619,7 @@ sub edge_faces() {
   dashedwithhses();
   some_edge_faces(grep {
     my $n = $_->{Name};
-    $n !~ m{^(?:L2?|NZ)$} &&
+    $n !~ m{^$c{OuterfaceRe}$} &&
     !grep { $n eq $_->{Inner} } @{ $c{DashedHs} }
   } values %region);
 }