move into misc-data.pl: PA HS1_initials

[pandemic-rising-tide.git] / generate-board

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");