move into misc-data.pl: PA HS1_initials

NFC

diff --git a/generate-board b/generate-board
index c801bedb2998b17318148e6f08206cd24dec895e..ba4aad265c84f5c97dc6ed94be4a568ecfcfbd1e 100755 (executable)
--- 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 9aaa4cdaea3220835559e7ff0b5336516058214b..3bd6111b38a4c112b7fac8e2c4c4a11e86942159 100644 (file)
--- 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] },