chiark / gitweb /
stack vertical
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 3 Mar 2019 16:02:27 +0000 (16:02 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 3 Mar 2019 16:02:27 +0000 (16:02 +0000)
generate-board

index 465a7ed6bd47d9f56a87aabc72e547259d0b363e..1d62df9e8d30c798dc452fd3a64c9483668c118d 100755 (executable)
@@ -608,11 +608,13 @@ sub sea_track(){
          " ",psvec(mkvec( $dx + $cube_sz, 0 )),
          " rlineto stroke\n");
       }
-      o("  ",($token_sz * 0.6 + $cube_gap)," ",($cube_gap + $hs_lw),
+      o("  ",($token_sz * 0.6 + $cube_gap)," ",
+       ($cube_gap + $hs_lw),
        " translate\n");
-      water_cubes(2);
-      my $new_n = $track->[$i+1] - 2;
-      o("  ", 0.5 * (water_cubes_sz(2) - water_cubes_sz($new_n)),
+      my $bottom = int(($track->[$i+1] + 1) / 2);
+      water_cubes($bottom);
+      my $new_n = $track->[$i+1] - $bottom;
+      o("  ", 0.5 * (water_cubes_sz($bottom) - water_cubes_sz($new_n)),
        "  ",       (water_cubes_sz(2)-water_cubes_sz(1)), " translate\n");
       water_cubes($new_n);
     }