pumpkin books adjustments from play

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

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 05da8b2c6691dae39876cbcd8786d630d4d684a9..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,25 +379,25 @@ 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
-  0.50 0.62 dc translate
-  0.65 dup scale
+  0.52 0.32 dc translate
+  0.80 dup scale
   -26 0 translate
-  gsave 26 0 translate ${\ chip($anychip,0) } grestore
+  gsave 26 0 translate ${\ chip($yellow,0) } grestore
   gsave 46 0 translate ${\ chip($pumpkin,0) } grestore
-  gsave -30 rotate bag_image grestore
-  8 14 translate
-  -120 rotate
+  34 14 translate
+  -22.5 rotate
+  1 -1 scale
   ${\ arrow_any("
     gsave
      arrowlen 0 translate
   -85 rotate
-    putback_len neg 0
-      putback_len
-      240 0 arc
+    -40 0
+      40
+      300 0 arc
     stroke
     grestore
   ") }
@@ -417,8 +418,8 @@ END
   };
   
   $o .= exposition(<<END);
-Move 1/2/4 already-placed pumpkins,
-to after the yellow.
+Move up to 1/2/4 pumpkins
+already in your pot, to after the yellow.
 (always immediately after, only one space,
 regardless of other rules)
 END