From 856c0a14aa7fa2fa955b489d83ddbc96045def38 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Thu, 7 Mar 2019 00:41:15 +0000 Subject: [PATCH] adjustments for a1 --- generate-board | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) diff --git a/generate-board b/generate-board index 7994569..8aef0df 100755 --- 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) { -- 2.30.2