o(" grestore\n");
}
+our $dyke_l = 25 * MM2PT;;
+
sub dykes(){
- my $l = 25 * MM2PT;
+ my $l = $dyke_l;
my $w = 5 * MM2PT;
my $lw = $edge_lw * 0.50;
my $l2 = $l/2;
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);
+ my $demo_x0 = $hs_sz * 0.75 + $dyke_l * 0.60;
+ my $demo_w = $demo_x0 + $dyke_l;
o(" % HS I $colour\n");
o(" gsave\n");
o(" 400 1720 translate\n");
}
one_hs($colour, mkvec(0,0));
if ($fn) {
- o(" $demo_x0 0 translate\n");
+ o(" $demo_x0 ",($hs_sz * -0.25)," translate\n");
$fn->();
}
o(" grestore\n");
hs_initial_1('red', 0,0);
hs_initial_1('purple', 0,1);
hs_initial_1('green', 1,0, sub {
- water_cubes(3);
+ o(" 0 ",(-water_cubes_sz(1) * 0.5)," translate\n");
+ water_cubes(1);
});
hs_initial_1('yellow', 1,1, sub {
- o(" 45 rotate newpath dykepath\n");
+ o(" newpath dykepath\n");
o(" gsave 0.50 setgray fill grestore\n");
o(" gsave ",pscolour($c{Colours}{dyke})," fill grestore\n");
});