move ZZ HS comment knowledge to misc-data.pl

NFC

diff --git a/generate-board b/generate-board
index 959861a07a9e74763b92bdb853f78a8dfec0aa0f..a801ff1c8b664219095651439b10bba80af29260 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -583,15 +583,15 @@ sub some_edge_faces (@) {
   }
 }
 
-sub afsluitdijk ($) {
-  my ($inner) = @_;
-  my ($adj) = grep { $_->{Name} eq 'NZ' } @{ $region{$inner}{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
@@ -605,7 +605,7 @@ END
 }
 
 sub afsluitdijken() {
-  afsluitdijk($_) foreach @{ $c{DashedHsInners} };
+  afsluitdijk($_->{Region}, $_->{Comment}) foreach @{ $c{DashedHsInners} };
 }
 
 sub edge_faces() {

diff --git a/misc-data.pl b/misc-data.pl
index 28d3c3cb0f1d3eb62b9408c2dc14ae43228c1ee3..8d6d37ae919f5067ae5199a620f8ac694fed5745 100644 (file)
--- a/misc-data.pl
+++ b/misc-data.pl
@@ -33,7 +33,10 @@ our %c =
      NZ => 'Noordzee',
  },
  HS => [ 'Roer en Overmaas', 'Schouwen-Duiveland', 'Rijn en IJssel' ],
- DashedHsInners => [ 'ZZ' ],
+ DashedHsInners => [ { 
+     Region => 'ZZ',
+     Comment => 'Afsluitdijk',
+ } ],
  SeaTrack => [qw(2 2 2 3 3 3 4 4 4)],
  CubeAbove => [
    'Wieringermeer'