From ad789e61f5aa85da4273e8bce14f747a6d68fe56 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 27 Oct 2021 01:11:31 +0100
Subject: [PATCH] wip black

---
 pumpkin-books.ps.pl | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index cf9c686..6606117 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -594,7 +594,7 @@ END
 sub black_common ($) {
   my ($second) = @_;
   my $font = <<END;
-/Helvetica-Bold findfont 6 scalefont setfont
+/Helvetica-Bold findfont 5.5 scalefont setfont
 END
   <<END;
     gsave
@@ -604,20 +604,22 @@ END
       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
@@ -665,7 +667,7 @@ sub black_book_more () {
 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
-- 
2.30.2