todos done

diff --git a/generate-board b/generate-board
index 6d177a68da4595e776123cda17484752e003ac7c..b961779c4ae5cd474143b3dc32205b2ad66db6f1 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -564,6 +564,7 @@ sub sea_track(){
   my $track = $c{SeaTrack};
   my $token_sz = $hs_sz;
   my $dy = $token_sz * 1.25;
+  my $dx = $token_sz * 1.25;
   my $linecolour = darkerpscolour('cube', 0.25);
   my @pos;
   for my $i (0..$#$track) {
@@ -589,20 +590,20 @@ sub sea_track(){
       my $t_sz = 24;
       my $shrink = ($hs_sz * 0.75 / $deck_h);
       o("    gsave % T M $i\n");
-      o("      0 -$dy translate\n");
+      o("      ",0.6 * $dx, " ", -0.28 * $dy," translate\n");
       o("      gsave");
       o("        $shrink dup scale -90 rotate\n");
       o("        newpath ", ($hs_lw / $shrink)," setlinewidth\n");
       o("         deck1path stroke\n");
       o("      grestore");
       o("      /Helvetica-Bold findfont $t_sz scalefont setfont\n");
-      o("      20 10 moveto ($track->[$i]) show");
+      o("      12 -22 moveto ($track->[$i]) show");
       o("    grestore\n");
     }
     if ($differs || $track->[$i]==2 && $track->[$i+2]!=2) {
       if ($differs) {
        o("  0 0 moveto",
-         " ",psvec(mkvec( $token_sz * 1.25 + $cube_sz, 0 )),
+         " ",psvec(mkvec( $dx + $cube_sz, 0 )),
          " rlineto stroke\n");
       }
       o("  ",($token_sz * 0.6 + $cube_gap)," ",($cube_gap + $hs_lw),
@@ -767,9 +768,6 @@ label_faces();
 decks();
 sea_track();
 hs_initial();
-# xxx HS initial locations
-# xxx HS instructions
-# xxx overall instructions
 play_hint();
 postamble();