move into misc-data.pl: OuterCoastDelta

NFC

diff --git a/generate-board b/generate-board
index aaf7023751623206fa52cdfc447e680a14fdb553..0568e717fe07d4ce2fd156be11ba9f1a9a34ec4b 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;

diff --git a/misc-data.pl b/misc-data.pl
index f784bc032fadb7bc55ed8fe62df254ded0635356..3c7379cabcd400ffde645d7dff43e04335291a11 100644 (file)
--- 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 ],
+ },
 );