From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 3 Mar 2019 01:03:25 +0000 (+0000)
Subject: dykepath nfc
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=06179f8cc0efac0ffb07c74efa4b323e46cb486b;p=pandemic-rising-tide.git

dykepath nfc
---

diff --git a/generate-board b/generate-board
index 0f54fe6..c74392d 100755
--- a/generate-board
+++ b/generate-board
@@ -588,11 +588,14 @@ sub dykes(){
   my $lw = $edge_lw * 0.50;
   my $l2 = $l/2;
   my $w2 = $w/2;
-  o("  /dyke {\n");
-  o("    newpath -$l2 -$w2 moveto\n");
+  o("  /dykepath {\n");
+  o("            -$l2 -$w2 moveto\n");
   o("             $l2 -$w2 lineto\n");
   o("             $l2  $w2 lineto\n");
   o("            -$l2  $w2 lineto closepath\n");
+  o("  } bind def\n");
+  o("  /dyke {\n");
+  o("    newpath dykepath\n");
   o("    gsave 0.50 setgray fill grestore\n");
   o("    gsave 0.00 setgray $lw setlinewidth stroke grestore\n");
   o("  } bind def\n");