move ZZ HS colour knowledge to misc-data.pl

NFC

diff --git a/generate-board b/generate-board
index a801ff1c8b664219095651439b10bba80af29260..ac23f16a410caef949b85fe00831515bf7c0af6e 100755 (executable)
--- 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 8d6d37ae919f5067ae5199a620f8ac694fed5745..19daff3f71c6ecdc5d934e7095a59c808f66159b 100644 (file)
--- 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 => [