From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 10 Mar 2019 18:59:08 +0000 (+0000)
Subject: move ZZ knowledge to misc-data.pl
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=7b71ee37da389a70ab0edcde8c2f6bac059ca071;p=pandemic-rising-tide.git

move ZZ knowledge to misc-data.pl

NFC
---

diff --git a/generate-board b/generate-board
index 297a0cb..bfc9bfc 100755
--- a/generate-board
+++ b/generate-board
@@ -616,7 +616,9 @@ sub edge_faces() {
   some_edge_faces($region{$c{Sea}});
   dashedwithhses();
   some_edge_faces(grep {
-    $_->{Name} !~ m{^(?:L2?|NZ|ZZ)$}
+    my $n = $_->{Name};
+    $n !~ m{^(?:L2?|NZ|ZZ)$} &&
+    !grep { $n eq $_->{Inner} } @{ $c{DashedHs} }
   } values %region);
 }
 
@@ -877,7 +879,7 @@ sub dykes(){
   o("  } bind def\n");
   foreach my $rr (values %region) {
     next if $rr->{Special};
-    next if $rr->{Name} eq 'ZZ';
+    next if grep { $_->{Inner} eq $rr->{Name} } @{ $c{DashedHs} };
     next if $rr->{Colour} eq 'high';
     foreach my $adj (@{ $rr->{Adj} }) {
       my $neigh = $adj->{Name};