" ",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);
}