chiark / gitweb /
wip track cubes
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 2 Mar 2019 16:48:39 +0000 (16:48 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 2 Mar 2019 16:48:39 +0000 (16:48 +0000)
generate-board

index 925e88cd679422f5b08c6542ad26b5d0e1188353..9a5374fff66d522582233eb00750e9787bbb14a0 100755 (executable)
@@ -463,6 +463,7 @@ END
 }
 
 our $cube_sz = 7 * MM2PT;
+our $cube_gap = $cube_sz * 0.2;
 
 sub water_cube(){
   my $s = $cube_sz;
@@ -500,7 +501,9 @@ sub sea_track(){
     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");
+      " ",psvec(mkvec( $token_sz * 1.25 + $cube_sz, 0 )), " rlineto stroke\n");
+    o("  ",($token_sz * 0.6 + $cube_gap)," ",($cube_gap + $hs_lw),
+      " translate\n");
     water_cube();
     o("  grestore\n");
   }