sub black_common ($) {
my ($second) = @_;
my $font = <<END;
-/Helvetica-Bold findfont 6 scalefont setfont
+/Helvetica-Bold findfont 5.5 scalefont setfont
END
<<END;
gsave
arrow
grestore
gsave
- .45 .10 dc translate
- $font 0 0 moveto
- ($second) dup stringwidth neg exch neg exch rmoveto show
+ .40 .08 dc translate
+ $font
+ ($second)
+ dup stringwidth .5 mul exch .5 mul exch translate
+ dup stringwidth -1 mul exch -1 mul exch moveto show
.7 dup scale 7 3 translate
${\ ruby() }
grestore
gsave
.15 .37 dc translate
- .7 dup scale
- 15 1.5 moveto
+ 8.2 3.5 moveto
$font
(closest) show
+ .7 dup scale
gsave
17 0 translate
180 rotate
The player(s) with the shortest distance
between a black chip and a pumpkin
get to move their droplet.
-If only one player won a droplet, the
+If only one player won a droplet, the other
players(s) with the next-shortest distance
get a ruby.
END