From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Mar 2019 16:45:10 +0000 (+0000)
Subject: wip water cubes track
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=9f531e7eeeef8a7a006e72b35bcc29136149458e;p=pandemic-rising-tide.git

wip water cubes track
---

diff --git a/generate-board b/generate-board
index 23e3952..925e88c 100755
--- 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");
 }