From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 3 Mar 2019 03:09:15 +0000 (+0000)
Subject: todos done
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=67675a20c64ff3a3baf141792dc677940bc379e1;p=pandemic-rising-tide.git

todos done
---

diff --git a/generate-board b/generate-board
index 6d177a6..b961779 100755
--- 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();