From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 3 Mar 2019 00:34:56 +0000 (+0000)
Subject: adjust
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=ac81b8bd4835c12bb00266aaf1f86ae96e1b5ded;p=pandemic-rising-tide.git

adjust
---

diff --git a/generate-board b/generate-board
index 08a88db..a92657d 100755
--- a/generate-board
+++ b/generate-board
@@ -319,7 +319,7 @@ sub preamble() {
 %%BeginSetup
 /board {
   gsave
-  40 0 translate
+  40 -40 translate
 END
   #o(" 0.52 dup scale\n") if $xopts =~ m/S/;
   #o("%%Box 0 0 $xsz $ysz");
@@ -522,11 +522,11 @@ sub decks(){
   }
   o("    closepath\n");
   o("  } bind def");
-  o("  gsave 417 50 translate");
+  o("  gsave 407 50 translate");
   o("                   deckpath stroke\n");
   o("   200 0 translate deckpath stroke\n");
   o("  grestore");
-  o("  gsave 250 1360 translate 90 rotate");
+  o("  gsave 225 1375 translate 90 rotate");
   o("                   deckpath stroke\n");
   o("   200 0 translate deckpath stroke\n");
   o("  grestore");
@@ -534,7 +534,7 @@ sub decks(){
 
 sub sea_track(){
   o("% sea level track\n");
-  o("  gsave 10 660 translate\n");
+  o("  gsave 0 660 translate\n");
   my $track = $c{SeaTrack};
   my $token_sz = $hs_sz;
   my $dy = $token_sz * 1.25;