From 9f25b0ebef1cd8c830ad15512808f5d5e1e6c003 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 1 Mar 2019 21:48:12 +0000
Subject: [PATCH] wip afsluitdijk

---
 generate-board | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/generate-board b/generate-board
index 593e1d9..9bc9908 100755
--- 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);
 }
 
-- 
2.30.2