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

move into misc-data.pl: OuterCoastDelta

NFC
---

diff --git a/generate-board b/generate-board
index aaf7023..0568e71 100755
--- 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;
diff --git a/misc-data.pl b/misc-data.pl
index f784bc0..3c7379c 100644
--- a/misc-data.pl
+++ b/misc-data.pl
@@ -61,4 +61,7 @@ our %c =
 5. Water flows
 Hand limit 7 at all times
 END
+ PA => {
+   OuterCoastDelta => [ -1000, 0 ],
+ },
 );