my $sz = 18;
my $shadow = $sz * 0.1;
o(<<END);
- /wordshow {
+ /wordsshow {
0 setgray 0 10 359 {
dup cos $shadow mul
exch sin $shadow mul
}
o(<<END);
} bind def
- wordshow
+ wordsshow
END
}
}
}
}
-sub hs_initial_1 ($$$;$) {
- my ($colour, $xi,$yi, $fn) = @_;
+sub hs_initial_1 ($$$;$$) {
+ my ($colour, $xi,$yi, $text, $fn) = @_;
my $interval = $hs_sz * 1.75;
my $demo_h = $hs_sz; #water_cubes_sz(3);
my $demo_x0 = $hs_sz * 0.75 + $dyke_l * 0.60;
}
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(" $demo_x0 ",($hs_sz * -0.25)," translate\n");
$fn->();
}
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, 'up to 6', sub {
o(" 0 ",(-water_cubes_sz(1) * 0.5)," translate\n");
water_cubes(1);
});
- hs_initial_1('yellow', 1,1, sub {
+ hs_initial_1('yellow', 1,1, 'up to 4', sub {
o(" newpath dykepath\n");
o(" gsave 0.50 setgray fill grestore\n");
o(" gsave ",pscolour($c{Colours}{dyke})," fill grestore\n");