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

move ZZ HS colour knowledge to misc-data.pl

NFC
---

diff --git a/generate-board b/generate-board
index ac23f16..297a0cb 100755
--- a/generate-board
+++ b/generate-board
@@ -583,7 +583,7 @@ sub some_edge_faces (@) {
   }
 }
 
-sub afsluitdijk ($$$) {
+sub dashedwithhs ($$$) {
   my ($inner, $comment, $colour) = @_;
   my ($adj) = grep { $_->{Name} eq $c{Sea} } @{ $region{$inner}{Adj} };
   my $dash = 20;
@@ -604,17 +604,17 @@ END
   one_hs($colour, $mid);
 }
 
-sub afsluitdijken() {
-  afsluitdijk(
-	      $_->{Region},
+sub dashedwithhses() {
+  dashedwithhs(
+	      $_->{Inner},
 	      $_->{Comment},
 	      $_->{Colour}
-	     ) foreach @{ $c{DashedHsInners} };
+	     ) foreach @{ $c{DashedHs} };
 }
 
 sub edge_faces() {
   some_edge_faces($region{$c{Sea}});
-  afsluitdijken();
+  dashedwithhses();
   some_edge_faces(grep {
     $_->{Name} !~ m{^(?:L2?|NZ|ZZ)$}
   } values %region);
diff --git a/misc-data.pl b/misc-data.pl
index 19daff3..f784bc0 100644
--- a/misc-data.pl
+++ b/misc-data.pl
@@ -33,8 +33,8 @@ our %c =
      NZ => 'Noordzee',
  },
  HS => [ 'Roer en Overmaas', 'Schouwen-Duiveland', 'Rijn en IJssel' ],
- DashedHsInners => [ { 
-     Region => 'ZZ',
+ DashedHs => [ { 
+     Inner => 'ZZ',
      Comment => 'Afsluitdijk',
      Colour => 'purple',
  } ],