wip pot processing

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index b673112d88df596a95b7455822737ecc3d823291..c3f8ae8423e9ce8b09075aa2aac5ec9f99d71a0d 100755 (executable)
--- 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);