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