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

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

diff --git a/generate-board b/generate-board
index a801ff1..ac23f16 100755
--- a/generate-board
+++ b/generate-board
@@ -583,8 +583,8 @@ sub some_edge_faces (@) {
   }
 }
 
-sub afsluitdijk ($$) {
-  my ($inner, $comment) = @_;
+sub afsluitdijk ($$$) {
+  my ($inner, $comment, $colour) = @_;
   my ($adj) = grep { $_->{Name} eq $c{Sea} } @{ $region{$inner}{Adj} };
   my $dash = 20;
   my (@pos) = adj_ends($adj);
@@ -601,11 +601,15 @@ END
   stroke
   [] 0 setdash
 END
-  one_hs('purple', $mid);
+  one_hs($colour, $mid);
 }
 
 sub afsluitdijken() {
-  afsluitdijk($_->{Region}, $_->{Comment}) foreach @{ $c{DashedHsInners} };
+  afsluitdijk(
+	      $_->{Region},
+	      $_->{Comment},
+	      $_->{Colour}
+	     ) foreach @{ $c{DashedHsInners} };
 }
 
 sub edge_faces() {
diff --git a/misc-data.pl b/misc-data.pl
index 8d6d37a..19daff3 100644
--- a/misc-data.pl
+++ b/misc-data.pl
@@ -36,6 +36,7 @@ our %c =
  DashedHsInners => [ { 
      Region => 'ZZ',
      Comment => 'Afsluitdijk',
+     Colour => 'purple',
  } ],
  SeaTrack => [qw(2 2 2 3 3 3 4 4 4)],
  CubeAbove => [
-- 
2.30.2