From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 29 Jan 2023 20:58:23 +0000 (+0000)
Subject: pumpkin books adjustments from play
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=quacks.git;a=commitdiff_plain;h=8a32fdd893679b9c9254a522cb5e63717bfc767a

pumpkin books adjustments from play

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index b0f07fa..2b3dbbe 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -214,7 +214,7 @@ END
 }
 
 sub book_blue () {
-  my $o = general_book($blue, [qw(4 10 18)]);
+  my $o = general_book($blue, [qw(4 9 17)]);
 
   $o .= <<END;
 /Times-Bold findfont 15 scalefont setfont $black
@@ -323,7 +323,7 @@ END
   $o .= exposition(<<END);
 The value of this chip is
 1 higher than the number of pumpkins
-previously placed in the pot (but max.4)
+in the pot (but max.4)
 END
 
   $o;
@@ -379,7 +379,7 @@ END
 }
 
 sub book_yellow () {
-  my $o = general_book($yellow, [qw(5 11 18)]);
+  my $o = general_book($yellow, [qw(5 11 19)]);
 
   $o .= <<END;
 gsave