adjustments for a1

diff --git a/generate-board b/generate-board
index 7994569a0c713d224c26620cf9fed38164e51c68..8aef0dfb314899e782d377b4d38fd19bdc3142d7 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -37,6 +37,8 @@ our $a1_h = 2384;
 our $max_printeredge = 5.50 * MM2PT;
 our $a1m_pasteedge = 3.5 * MM2PT; # along each edge
 our $preamble_from_boundings = '';
+our $top_adjuncts_dy_from_boundings = 0;
+our $bottom_adjuncts_dy_from_boundings = 0;
 
 # ----- region names from plag, incl. reverse mapping -----
 
@@ -362,6 +364,8 @@ END
     if ($maxpaper eq 'a1m') {
       $bb{Cutout} = $submargins->($a1m_pasteedge, $bb{Entire});
     }
+    $top_adjuncts_dy_from_boundings = 35;
+    $bottom_adjuncts_dy_from_boundings = -7;
   } else {
     confess;
   }
@@ -706,9 +710,11 @@ sub decks(){
   o("    200 0 translate deck1path\n");
   o("  } bind def");
   o("  $lw setlinewidth ",miscpscolour('playerdeck'),"\n");
-  o("  gsave 401 44 translate deckpairpathx stroke grestore");
+  o("  gsave 401 44 $bottom_adjuncts_dy_from_boundings add translate");
+  o("     deckpairpathx stroke grestore");
   o("  $lw setlinewidth ",miscpscolour('dykefail'),"\n");
-  o("  gsave 242 1363 translate 90 rotate deckpairpathx stroke grestore");
+  o("  gsave 242 1363 $top_adjuncts_dy_from_boundings add translate ");
+  o("     90 rotate deckpairpathx stroke grestore");
 }
 
 sub sea_track(){
@@ -860,7 +866,7 @@ sub hs_initial_1 ($$$;$$$) {
   my $demo_w = $demo_x0 + $dyke_l * 0.60;
   o("  % HS I $colour\n");
   o("  gsave\n");
-  o("    550 1705 translate\n");
+  o("    550 1705 $top_adjuncts_dy_from_boundings add translate\n");
   o("    ", ($xi*$interval), " ", (($yi-1)*$interval), " translate\n");
   if ($fn) {
     o("  gsave\n");
@@ -897,7 +903,8 @@ sub hs_initial () {
 
 sub play_hint () {
   my $sz = 20;
-  o("  gsave ",miscpscolour('hinttext')," 260 1715 translate\n");
+  o("  gsave ",miscpscolour('hinttext'),
+    " 260 1715 $top_adjuncts_dy_from_boundings add translate\n");
   o("  /Helvetica-Bold findfont $sz scalefont setfont\n");
   my @t = split /\n/, $c{PlayHint};
   foreach my $i (0..$#t) {