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

---
 pumpkin-books.ps.pl | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 7a071da..cf9c686 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -591,7 +591,8 @@ END
   $o;
 }
 
-sub black_common () {
+sub black_common ($) {
+  my ($second) = @_;
   my $font = <<END;
 /Helvetica-Bold findfont 6 scalefont setfont
 END
@@ -602,6 +603,13 @@ END
       3.5 -1 translate .7 dup scale
       arrow
     grestore
+    gsave
+      .45 .10 dc translate
+      $font 0 0 moveto
+      ($second) dup stringwidth neg exch neg exch rmoveto show
+      .7 dup scale 7 3 translate
+      ${\ ruby() }
+    grestore
     gsave
       .15 .37 dc translate
       .7 dup scale
@@ -633,7 +641,7 @@ sub black_book_pair () {
   my $o = general_book($moth, [10, 1]);
 
   $o .= num_players(2);
-  $o .= black_common();
+  $o .= black_common('equal:');
 
   $o .= exposition(<<END);
 The player with the shortest distance
@@ -650,7 +658,7 @@ sub black_book_more () {
   my $o = general_book($moth, [10, 1]);
 
   $o .= num_players(3,'+');
-  $o .= black_common();
+  $o .= black_common('2nd:');
 
   $o .= exposition(<<END);
 
-- 
2.30.2