move ZZ HS colour knowledge to misc-data.pl

NFC

diff --git a/generate-board b/generate-board
index ac23f16a410caef949b85fe00831515bf7c0af6e..297a0cbf2373af78cb2471dee8b4bda68de98ba2 100755 (executable)
--- 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 19daff3f71c6ecdc5d934e7095a59c808f66159b..f784bc032fadb7bc55ed8fe62df254ded0635356 100644 (file)
--- 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',
  } ],