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) {
 
    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] },