wip initial_hs, before words?

diff --git a/generate-board b/generate-board
index 6445defc553f3f447890407398ef3197ac98cbec..8159ace521fa76bff960c3ef927ce44bcd39be10 100755 (executable)
--- 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");
   });