From 9a7efb83612b0769ae7f1d510ec76d90bea1d66f Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 3 Mar 2019 01:24:11 +0000
Subject: [PATCH] wip intend textual

---
 generate-board | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/generate-board b/generate-board
index 8159ace..ad02a3c 100755
--- a/generate-board
+++ b/generate-board
@@ -582,8 +582,10 @@ sub sea_track(){
   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;
@@ -657,8 +659,8 @@ 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);
+  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");
@@ -670,7 +672,7 @@ sub hs_initial_1 ($$$;$) {
   }
   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");
@@ -680,10 +682,11 @@ sub hs_initial () {
   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");
   });
-- 
2.30.2