sub hs_initial_1 ($$$;$$) {
my ($colour, $xi,$yi, $text, $fn) = @_;
- my $interval = $hs_sz * 1.75;
+ my $interval = $hs_sz * 1.65;
my $demo_h = $hs_sz; #water_cubes_sz(3);
my $demo_x0 = $hs_sz * 0.75 + $dyke_l * 0.60;
- my $demo_w = $demo_x0 + $dyke_l;
+ my $demo_w = $demo_x0 + $dyke_l * 0.60;
o(" % HS I $colour\n");
o(" gsave\n");
o(" 400 1720 translate\n");
one_hs($colour, mkvec(0,0));
if ($fn) {
o(" /words { 2 copy moveto ($text) show } bind def");
- o(" gsave 0 0 moveto wordsshow grestore\n");
+ o(" gsave $hs_sz $cube_gap translate wordsshow grestore\n");
o(" $demo_x0 ",($hs_sz * -0.25)," translate\n");
$fn->();
}
hs_initial_1('red', 0,0);
hs_initial_1('purple', 0,1);
hs_initial_1('green', 1,0, 'up to 6', sub {
+ o(" ",(water_cubes_sz(1))," 0 translate\n");
+ o(" /words { 2 copy moveto (fewer ) dup stringwidth pop -1 mul 0 rmoveto show } bind def wordsshow");
o(" 0 ",(-water_cubes_sz(1) * 0.5)," translate\n");
water_cubes(1);
});