From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 10 Mar 2019 20:31:09 +0000 (+0000)
Subject: move into misc-data.pl: PA HS1_initials
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=30041300cabf621df03fd260d3bbf209b0c0a33c;p=pandemic-rising-tide.git

move into misc-data.pl: PA HS1_initials

NFC
---

diff --git a/generate-board b/generate-board
index c801bed..ba4aad2 100755
--- a/generate-board
+++ b/generate-board
@@ -941,7 +941,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 $adjuncts_dy_from_boundings{Top} add translate\n");
+  o("    ".pos_plus_dy_adjunct($c{PA}{HS1_initials})."\n");
   o("    ", ($xi*$interval), " ", (($yi-1)*$interval), " translate\n");
   if ($fn) {
     o("  gsave\n");
diff --git a/misc-data.pl b/misc-data.pl
index 9aaa4cd..3bd6111 100644
--- a/misc-data.pl
+++ b/misc-data.pl
@@ -66,6 +66,7 @@ END
    BoundingsA1dy => [ 35, -7 ],
    Overall => [ 34, -15 ],
    OverallOn => { a4 => [ 0, -17 ] },
+   HS1_initials => [ 550, 1705, 'Top' ],
  },
  PlayHintdyAdjunct => 'Top',
  PA_HS_HS => { green => [0, -0.40] },