pumpkin books adjustments from play

[quacks.git] / pumpkin-books.ps.pl

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 806f29245048f08c29aa87ec5c93b94774a7c708..2b3dbbe275ba637b3d2d9804fa3c79c5fa4390f4 100755 (executable)
--- 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
@@ -266,7 +266,8 @@ END
   $o .= $exchline->(1, 2, <<END);
   ${\ $exchip->($moth,1) }  ${\ $exslash->() }
   ${\ $exchip->($purple,1) }  ${\ $exslash->() }
-  ${\ anychip(2) }
+  ${\ $exchip->($lotus,0) }  ${\ $exslash->() }
+  ${\ $exchip->($anychip,2) }
 END
 
   $o .= $exchline->(0, 4, <<END);
@@ -322,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;
@@ -378,7 +379,7 @@ END
 }
 
 sub book_yellow () {
-  my $o = general_book($yellow, [qw(7 12 19)]);
+  my $o = general_book($yellow, [qw(5 11 19)]);
 
   $o .= <<END;
 gsave