experimentally move sea track

diff --git a/generate-board b/generate-board
index 171dbda7e5bf2e045dcfcd25ed6eb9a6992502b6..f5b227554c190ed1effe38502b41334b220016af 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -319,7 +319,7 @@ sub preamble() {
 %%BeginSetup
 /board {
   gsave
-  40 0 translate
+  30 -40 translate
 END
   #o(" 0.52 dup scale\n") if $xopts =~ m/S/;
   #o("%%Box 0 0 $xsz $ysz");
@@ -509,7 +509,8 @@ sub water_cubes($){
 
 sub sea_track(){
   o("% sea level track\n");
-  o("  gsave 10 660 translate\n");
+  o("  gsave 440 1700 translate\n");
+  o("  -90 rotate\n");
   my $track = $c{SeaTrack};
   my $token_sz = $hs_sz;
   my $dy = $token_sz * 1.25;