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

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

diff --git a/generate-board b/generate-board
index 19a00a6..959861a 100755
--- a/generate-board
+++ b/generate-board
@@ -583,8 +583,9 @@ sub some_edge_faces (@) {
   }
 }
 
-sub afsluitdijk() {
-  my ($adj) = grep { $_->{Name} eq 'NZ' } @{ $region{'ZZ'}{Adj} };
+sub afsluitdijk ($) {
+  my ($inner) = @_;
+  my ($adj) = grep { $_->{Name} eq 'NZ' } @{ $region{$inner}{Adj} };
   my $dash = 20;
   my (@pos) = adj_ends($adj);
   my $mid = 0.5 * ($pos[0] + $pos[1]);
@@ -603,9 +604,13 @@ END
   one_hs('purple', $mid);
 }
 
+sub afsluitdijken() {
+  afsluitdijk($_) foreach @{ $c{DashedHsInners} };
+}
+
 sub edge_faces() {
   some_edge_faces($region{$c{Sea}});
-  afsluitdijk();
+  afsluitdijken();
   some_edge_faces(grep {
     $_->{Name} !~ m{^(?:L2?|NZ|ZZ)$}
   } values %region);
diff --git a/misc-data.pl b/misc-data.pl
index 1208324..28d3c3c 100644
--- a/misc-data.pl
+++ b/misc-data.pl
@@ -33,6 +33,7 @@ our %c =
      NZ => 'Noordzee',
  },
  HS => [ 'Roer en Overmaas', 'Schouwen-Duiveland', 'Rijn en IJssel' ],
+ DashedHsInners => [ 'ZZ' ],
  SeaTrack => [qw(2 2 2 3 3 3 4 4 4)],
  CubeAbove => [
    'Wieringermeer'
-- 
2.30.2