From b52120d256954b5b4f0325c0db0c14fc2dcc0c63 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sun, 3 Mar 2019 01:08:11 +0000 Subject: [PATCH] wip interpretation --- generate-board | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/generate-board b/generate-board index 38217d6..6445def 100755 --- a/generate-board +++ b/generate-board @@ -653,22 +653,27 @@ sub dykes(){ } } -sub hs_initial_1 ($$$) { - my ($colour, $xi,$yi) = @_; +sub hs_initial_1 ($$$;$) { + my ($colour, $xi,$yi, $fn) = @_; my $interval = $hs_sz * 1.75; o(" % HS I $colour\n"); o(" gsave\n"); o(" 400 1720 translate\n"); o(" ", ($xi*$interval), " ", (($yi-1)*$interval), " translate\n"); one_hs($colour, mkvec(0,0)); + $fn->() if $fn; o(" grestore\n"); } sub hs_initial () { hs_initial_1('red', 0,0); hs_initial_1('purple', 0,1); - hs_initial_1('green', 1,0); - hs_initial_1('yellow', 1,1); + hs_initial_1('green', 1,0, sub { }); + hs_initial_1('yellow', 1,1, sub { + o(" newpath dykepath\n"); + o(" gsave 0.50 setgray fill grestore\n"); + o(" gsave ",pscolour($c{Colours}{dyke})," fill grestore\n"); + }); } #----- main program ----- -- 2.30.2