chiark / gitweb /
afsluitdijk
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Fri, 1 Mar 2019 21:52:50 +0000 (21:52 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Fri, 1 Mar 2019 21:52:57 +0000 (21:52 +0000)
generate-board

index 9bc990878c7645f9124bcd35e59848d0719e4ccf..479856e53025002a30f2a9c3e11b376d560f61e1 100755 (executable)
@@ -321,6 +321,13 @@ sub afsluitdijk() {
   o(sprintf <<'END', pscolour($c{Colours}{sea}), psvec($mid), $r);
   %% Afsluitdijk
   %s %s %s 0 360 arc closepath fill
+END
+  some_edge_faces(()); # just sets the colour
+  o(sprintf <<'END', map { psvec($_) } @pos);
+  newpath %s moveto %s lineto
+  [ 20 20 ] 10 setdash
+  stroke
+  [] 0 setdash
 END
 }