From 7c3e658b322a1f46d6ea1c03504c4dcc809677ec Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sat, 2 Mar 2019 17:36:51 +0000 Subject: [PATCH] dyke proc --- generate-board | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/generate-board b/generate-board index f15a5d4..80320f2 100755 --- a/generate-board +++ b/generate-board @@ -552,6 +552,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(" $l2 -$w2 lineto\n"); + o(" $l2 $w2 lineto\n"); + o(" -$l2 $w2 lineto closepath\n"); + o(" gsave 0.50 setgray fill grestore\n"); + o(" gsave 0.00 setgray $lw setlinewidth stroke grestore\n"); + o(" } bind def\n"); foreach my $rr (values %region) { next if $rr->{Special}; next if $rr->{Colour} eq 'high'; @@ -566,12 +574,7 @@ sub dykes(){ o(" gsave\n"); o(" ", psvec( 0.5 * ($ends[0] + $ends[1]) )," translate\n"); o(" ", ($angle * 360 / TAU), " rotate\n"); - o(" newpath -$l2 -$w2 moveto\n"); - o(" $l2 -$w2 lineto\n"); - o(" $l2 $w2 lineto\n"); - o(" -$l2 $w2 lineto closepath\n"); - o(" gsave 0.50 setgray fill grestore\n"); - o(" gsave 0.00 setgray $lw setlinewidth stroke grestore\n"); + o(" dyke\n"); o(" grestore\n"); } } -- 2.30.2