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

finish afsluitdijk
---

diff --git a/generate-board b/generate-board
index 479856e..07dc841 100755
--- a/generate-board
+++ b/generate-board
@@ -314,7 +314,7 @@ sub some_edge_faces (@) {
 
 sub afsluitdijk() {
   my ($adj) = grep { $_->{Name} eq 'NZ' } @{ $region{'ZZ'}{Adj} };
-  print STDERR Dumper($adj);
+  my $dash = 20;
   my (@pos) = map { $_->{Pos} } @{ $adj->{Ends} };
   my $mid = 0.5 * ($pos[0] + $pos[1]);
   my $r = 0.5 * ($pos[1] - $pos[0])->norm();
@@ -323,9 +323,9 @@ sub afsluitdijk() {
   %s %s %s 0 360 arc closepath fill
 END
   some_edge_faces(()); # just sets the colour
-  o(sprintf <<'END', map { psvec($_) } @pos);
+  o(sprintf <<END, map { psvec($_) } @pos);
   newpath %s moveto %s lineto
-  [ 20 20 ] 10 setdash
+  [ $dash $dash ] $dash 0.5 mul setdash
   stroke
   [] 0 setdash
 END