From 6908af2e0f247b525802d3f3c57642b38d1a80da Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 1 Mar 2019 21:56:02 +0000
Subject: [PATCH] finish afsluitdijk

---
 generate-board | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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
-- 
2.30.2