move ZZ HS comment knowledge to misc-data.pl

[pandemic-rising-tide.git] / generate-board

diff --git a/generate-board b/generate-board
index 19a00a63b44941b6e8a21c36a9e1eca2db99f908..a801ff1c8b664219095651439b10bba80af29260 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -583,14 +583,15 @@ sub some_edge_faces (@) {
   }
 }
 
-sub afsluitdijk() {
-  my ($adj) = grep { $_->{Name} eq 'NZ' } @{ $region{'ZZ'}{Adj} };
+sub afsluitdijk ($$) {
+  my ($inner, $comment) = @_;
+  my ($adj) = grep { $_->{Name} eq $c{Sea} } @{ $region{$inner}{Adj} };
   my $dash = 20;
   my (@pos) = adj_ends($adj);
   my $mid = 0.5 * ($pos[0] + $pos[1]);
   my $r = 0.5 * ($pos[1] - $pos[0])->norm();
-  o(sprintf <<'END', facepscolour('sea'), psvec($mid), $r);
-  %% Afsluitdijk
+  o(sprintf <<'END', $comment, facepscolour('sea'), psvec($mid), $r);
+  %% %s
   %s %s %s 0 360 arc closepath fill
 END
   some_edge_faces(()); # just sets the colour
@@ -603,9 +604,13 @@ END
   one_hs('purple', $mid);
 }
 
+sub afsluitdijken() {
+  afsluitdijk($_->{Region}, $_->{Comment}) 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);