sub hs_initial_1 ($$$;$$$) {
my ($colour, $xi,$yi, $text, $text2, $fn) = @_;
- my $interval = $hs_sz * 1.50;
+ 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 * 0.60;