From 53beada86c6ef95bde697967ff3318c577ae1329 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sat, 2 Mar 2019 17:34:44 +0000 Subject: [PATCH] dykes --- generate-board | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/generate-board b/generate-board index c35c0f6..e4d40ba 100755 --- a/generate-board +++ b/generate-board @@ -549,7 +549,9 @@ sub sea_track(){ sub dykes(){ my $l = 25 * MM2PT; my $w = 5 * MM2PT; - my $lw = $edge_lw/2; + my $lw = $edge_lw * 0.25; + my $l2 = $l/2; + my $w2 = $w/2; foreach my $rr (values %region) { next if $rr->{Special}; next if $rr->{Colour} eq 'high'; @@ -564,8 +566,12 @@ sub dykes(){ o(" gsave\n"); o(" ", psvec( 0.5 * ($ends[0] + $ends[1]) )," translate\n"); o(" ", ($angle * 360 / TAU), " rotate\n"); -# o(" - o(" 1 setgray 0 0 moveto 20 0 lineto stroke\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 stroke grestore\n"); o(" grestore\n"); } } -- 2.30.2