From de3071b3394fc3ce2b7d7a13d8491aa3ed017ef3 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 3 Mar 2019 16:19:02 +0000
Subject: [PATCH] positioning adjustments to get player deck in our printable
 area

---
 generate-board | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/generate-board b/generate-board
index 9e2cc38..9331ec3 100755
--- a/generate-board
+++ b/generate-board
@@ -319,7 +319,7 @@ sub preamble() {
 %%BeginSetup
 /board {
   gsave
-  40 -40 translate
+  40 -34 translate
 END
   #o(" 0.52 dup scale\n") if $xopts =~ m/S/;
   #o("%%Box 0 0 $xsz $ysz");
@@ -555,7 +555,7 @@ sub decks(){
   o("  $lw setlinewidth 1 setgray\n");
   o("  gsave 407 50 translate deckpairpathx stroke grestore");
   o("  $lw setlinewidth ",pscolour($c{Colours}{dykefail}),"\n");
-  o("  gsave 225 1375 translate 90 rotate deckpairpathx stroke grestore");
+  o("  gsave 225 1355 translate 90 rotate deckpairpathx stroke grestore");
 }
 
 sub sea_track(){
@@ -704,7 +704,7 @@ sub hs_initial_1 ($$$;$$$) {
   my $demo_w = $demo_x0 + $dyke_l * 0.60;
   o("  % HS I $colour\n");
   o("  gsave\n");
-  o("    550 1710 translate\n");
+  o("    550 1705 translate\n");
   o("    ", ($xi*$interval), " ", (($yi-1)*$interval), " translate\n");
   if ($fn) {
     o("  gsave");
@@ -741,7 +741,7 @@ sub hs_initial () {
 
 sub play_hint () {
   my $sz = 20;
-  o("  gsave 0 setgray 260 1720 translate");
+  o("  gsave 0 setgray 260 1715 translate");
   o("  /Helvetica-Bold findfont $sz scalefont setfont");
   my @t = split /\n/, $c{PlayHint};
   foreach my $i (0..$#t) {
-- 
2.30.2