From ce6e68b4b168e9fdd4ff75b776e5dee15c9db977 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 10 Mar 2019 19:38:25 +0000
Subject: [PATCH] move into misc-data.pl: OuterCoastDelta

NFC
---
 generate-board | 2 +-
 misc-data.pl   | 3 +++
 2 files changed, 4 insertions(+), 1 deletion(-)

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 ],
+ },
 );
-- 
2.30.2