From d058d1fd547eeb7f1dc729aae588f7d0cff1394b Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sun, 3 Mar 2019 01:19:03 +0000 Subject: [PATCH] wip initial_hs, before words? --- generate-board | 19 ++++++++++++++++--- 1 file changed, 16 insertions(+), 3 deletions(-) diff --git a/generate-board b/generate-board index 6445def..8159ace 100755 --- a/generate-board +++ b/generate-board @@ -656,21 +656,34 @@ sub dykes(){ sub hs_initial_1 ($$$;$) { my ($colour, $xi,$yi, $fn) = @_; my $interval = $hs_sz * 1.75; + my $demo_h = $hs_sz; #water_cubes_sz(3); + my $demo_x0 = $hs_sz * 0.75; + my $demo_w = $demo_x0 + water_cubes_sz(3); o(" % HS I $colour\n"); o(" gsave\n"); o(" 400 1720 translate\n"); o(" ", ($xi*$interval), " ", (($yi-1)*$interval), " translate\n"); + if ($fn) { + o(" gsave"); + o(" $demo_h setlinewidth 0 0 moveto $demo_w 0 rlineto\n"); + o(" ", facepscolour($colour), " stroke grestore\n"); + } one_hs($colour, mkvec(0,0)); - $fn->() if $fn; + if ($fn) { + o(" $demo_x0 0 translate\n"); + $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, sub { }); + hs_initial_1('green', 1,0, sub { + water_cubes(3); + }); hs_initial_1('yellow', 1,1, sub { - o(" newpath dykepath\n"); + o(" 45 rotate newpath dykepath\n"); o(" gsave 0.50 setgray fill grestore\n"); o(" gsave ",pscolour($c{Colours}{dyke})," fill grestore\n"); }); -- 2.30.2