wip deck count

diff --git a/generate-board b/generate-board
index a7ae78610d15a74b31b1c15e048e8c5bff19f48f..6d177a68da4595e776123cda17484752e003ac7c 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -586,13 +586,17 @@ sub sea_track(){
        $track->[$i] == $track->[$i-1] &&
        ($i == 1 ||
         $track->[$i] != $track->[$i-2])) {
-      my $shrink = ($hs_sz / $deck_h);
+      my $t_sz = 24;
+      my $shrink = ($hs_sz * 0.75 / $deck_h);
       o("    gsave % T M $i\n");
       o("      0 -$dy translate\n");
       o("      gsave");
-      o("        $shrink dup scale\n");
-      o("        newpath ", ($hs_lw / $shrink)," setlinewidth deck1path stroke\n");
+      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("    grestore\n");
     }
     if ($differs || $track->[$i]==2 && $track->[$i+2]!=2) {
@@ -733,6 +737,7 @@ sub hs_initial () {
 sub play_hint () {
   my $sz = 20;
   o("  gsave 0 setgray 260 1720 translate");
+  o("  /Helvetica-Bold findfont $sz scalefont setfont");
   my @t = split /\n/, $c{PlayHint};
   foreach my $i (0..$#t) {
     my $t = $t[$i];