From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 4 Mar 2019 02:50:28 +0000 (+0000)
Subject: adjustments for printable bboxes
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=aa1b56e7ee81e38edbaeca98ddf7db568bc5de91;p=pandemic-rising-tide.git

adjustments for printable bboxes
---

diff --git a/generate-board b/generate-board
index 9802ec7..c862495 100755
--- a/generate-board
+++ b/generate-board
@@ -378,7 +378,7 @@ sub preamble() {
 &&BeginSetup
 /board {
   gsave
-  40 -26 translate
+  34 -15 translate
 END
   # xxx split into pages
   # xxx setpagedevice
@@ -611,14 +611,14 @@ sub decks(){
   o("    200 0 translate deck1path\n");
   o("  } bind def");
   o("  $lw setlinewidth 1 setgray\n");
-  o("  gsave 407 50 translate deckpairpathx stroke grestore");
+  o("  gsave 401 44 translate deckpairpathx stroke grestore");
   o("  $lw setlinewidth ",pscolour($c{Colours}{dykefail}),"\n");
-  o("  gsave 225 1355 translate 90 rotate deckpairpathx stroke grestore");
+  o("  gsave 242 1363 translate 90 rotate deckpairpathx stroke grestore");
 }
 
 sub sea_track(){
   o("% sea level track\n");
-  o("  gsave 0 660 translate\n");
+  o("  gsave 11 700 translate\n");
   my $track = $c{SeaTrack};
   my $token_sz = $hs_sz;
   my $dy = $token_sz * 1.25;