From fda3560e6d3c7049249598ef828b755a92e3fd89 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 10 Mar 2019 18:54:38 +0000
Subject: [PATCH 1/1] move ZZ HS colour knowledge to misc-data.pl

NFC
---
 generate-board | 12 ++++++------
 misc-data.pl   |  4 ++--
 2 files changed, 8 insertions(+), 8 deletions(-)

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',
  } ],
-- 
2.30.2