chiark / gitweb /
move into misc-data.pl: AP PlayHint
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 10 Mar 2019 22:04:17 +0000 (22:04 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 10 Mar 2019 22:04:17 +0000 (22:04 +0000)
NFC

generate-board
misc-data.pl

index 7159e48633176cd731ba9fa9d7265e6dabb7395f..a5d2cdb6f6245108823d0898683af901e8bd879e 100755 (executable)
@@ -984,7 +984,7 @@ sub hs_initial () {
 sub play_hint () {
   my $sz = 20;
   o("  gsave ",miscpscolour('hinttext'),
-    " 260 1715 $adjuncts_dy_from_boundings{$c{PlayHintdyAdjunct}} add translate\n");
+    " ",pos_plus_dy_adjunct($c{PA}{PlayHint}),"\n");
   o("  /Helvetica-Bold findfont $sz scalefont setfont\n");
   my @t = split /\n/, $c{PlayHint};
   foreach my $i (0..$#t) {
index 47ed3d1690512c205b0384bd515842c8b185a5d5..a99c5d43d368dc4ce6e4573545604e20704a44ea 100644 (file)
@@ -68,6 +68,7 @@ END
    OverallOn => { a4 => [ 0, -17 ] },
    HS1_initials => [ 550, 1705, 'Top' ],
    SeaTrack => [ 11, 700 ],
+   PlayHint => [ 260, 1715, 'Top' ],
  },
  PlayHintdyAdjunct => 'Top',
  PA_HS_HS => { green => [0, -0.40] },