From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 1 Mar 2019 21:48:12 +0000 (+0000)
Subject: wip afsluitdijk
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=9f25b0ebef1cd8c830ad15512808f5d5e1e6c003;p=pandemic-rising-tide.git

wip afsluitdijk
---

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);
 }