From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 26 Oct 2021 22:47:22 +0000 (+0100)
Subject: wip pot processing
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=ec9eb25792ad43585230febe3a2974a43b384081;p=quacks.git

wip pot processing
---

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);