wip afsluitdijk

diff --git a/generate-board b/generate-board
index 593e1d9b00e527e4028fd756f1406aafb22b2e67..9bc990878c7645f9124bcd35e59848d0719e4ccf 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -312,11 +312,24 @@ sub some_edge_faces (@) {
   }
 }
 
+sub afsluitdijk() {
+  my ($adj) = grep { $_->{Name} eq 'NZ' } @{ $region{'ZZ'}{Adj} };
+  print STDERR Dumper($adj);
+  my (@pos) = map { $_->{Pos} } @{ $adj->{Ends} };
+  my $mid = 0.5 * ($pos[0] + $pos[1]);
+  my $r = 0.5 * ($pos[1] - $pos[0])->norm();
+  o(sprintf <<'END', pscolour($c{Colours}{sea}), psvec($mid), $r);
+  %% Afsluitdijk
+  %s %s %s 0 360 arc closepath fill
+END
+}
+
 sub edge_faces() {
   some_edge_faces($region{'NZ'});
+  afsluitdijk();
   some_edge_faces(grep {
     my $n = $_->{Name};
-    !($n eq 'L' || $n eq 'NZ')
+    !($n eq 'L' || $n eq 'NZ' || $n eq 'ZZ')
   } values %region);
 }