From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 3 Mar 2019 03:01:31 +0000 (+0000)
Subject: wip deck count
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=2cbcaa194da8224cf56bf745d85c6923e6555850;p=pandemic-rising-tide.git

wip deck count
---

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