finish afsluitdijk

diff --git a/generate-board b/generate-board
index 479856e53025002a30f2a9c3e11b376d560f61e1..07dc84113eba3a04f3463c9361b597ed10979846 100755 (executable)
--- 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