From 06179f8cc0efac0ffb07c74efa4b323e46cb486b Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sun, 3 Mar 2019 01:03:25 +0000 Subject: [PATCH] dykepath nfc --- generate-board | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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"); -- 2.30.2