From ec9eb25792ad43585230febe3a2974a43b384081 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 26 Oct 2021 23:47:22 +0100
Subject: [PATCH] wip pot processing

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

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index b673112..c3f8ae8 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -147,9 +147,19 @@ sub num_players ($;$) {
   gsave
     -0.94 0.50 dc translate
     0.3 dup scale
-    pot_image
-    18 0 translate
-    pot_image
+END
+
+  $o .= <<END x $n;
+    pot_image 18 0 translate
+END
+
+  $o .= <<END if defined $plus;
+    -9 -5 moveto
+    /Helvetica-Bold findfont 25 scalefont setfont
+    ($plus) show
+END
+
+  $o .= <<END;
   grestore
 END
   return $o;
@@ -590,8 +600,7 @@ END
 sub black_book_more () {
   my $o = general_book($moth, [10, 1]);
 
-  $o .= <<END;
-END
+  $o .= num_players(3,'+');
 
   $o .= exposition(<<END);
 
-- 
2.30.2