From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 10 Mar 2019 19:42:46 +0000 (+0000)
Subject: move into misc-data.pl: PA_Outercoast_Vertices Noorderzijlvest
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=d5e9af6bb498bb4daccb4bc4aa89e05fbd53ba29;p=pandemic-rising-tide.git

move into misc-data.pl: PA_Outercoast_Vertices Noorderzijlvest

NFC
---

diff --git a/generate-board b/generate-board
index 0568e71..b48f8bc 100755
--- a/generate-board
+++ b/generate-board
@@ -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;
diff --git a/misc-data.pl b/misc-data.pl
index 3c7379c..f15b605 100644
--- a/misc-data.pl
+++ b/misc-data.pl
@@ -64,4 +64,7 @@ END
  PA => {
    OuterCoastDelta => [ -1000, 0 ],
  },
+ PA_Outercoast_Vertices => [
+   { Re => qr{Noorderzijlvest}, PA => [ 100,-50 ] },
+ ],
 );