wip water cubes track

diff --git a/generate-board b/generate-board
index 23e3952ea080824bca53dd3ca10eecfb0b530bc2..925e88cd679422f5b08c6542ad26b5d0e1188353 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -462,6 +462,19 @@ END
   }
 }
 
+our $cube_sz = 7 * MM2PT;
+
+sub water_cube(){
+  my $s = $cube_sz;
+  o("  newpath  0  0  moveto\n");
+  o("          $s  0  lineto\n");
+  o("          $s $s  lineto\n");
+  o("           0 $s  lineto  closepath\n");
+  o("  gsave ", pscolour($c{Colours}{sea}), " fill grestore\n");
+  o("  gsave ", '0 setgray ', ($cube_sz * 0.1),
+    " setlinewidth stroke grestore \n");
+}
+
 sub sea_track(){
   o("% sea level track\n");
   o("  gsave 10 660 translate\n");
@@ -484,8 +497,12 @@ sub sea_track(){
   for my $i (0..$#pos-1) {
     next if $track->[$i] == $track->[$i+1];
     o("  $prepline\n");
-    o("  ",psvec($pos[$i] + mkvec(-0.0 * $token_sz, $dy/2))," moveto",
+    o("  gsave ",
+      psvec($pos[$i] + mkvec(-0.0 * $token_sz, $dy/2))," translate\n");
+    o("  0 0 moveto",
       " ",psvec(mkvec( $token_sz * 1.25, 0 )), " rlineto stroke\n");
+    water_cube();
+    o("  grestore\n");
   }
   o("  grestore\n");
 }