wip blue

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index e2c6b2b1465919dbe10196a8277d7f8970d160a5..107c2c30d34ce0186cafcfeca8135cedd826cf7b 100755 (executable)
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -193,19 +193,30 @@ sub blue_book () {
   my $o = general_book($blue, [qw(4 9 16)]);
 
   $o .= <<END;
-gsave 0.35 0.30 dc translate ${\ chip($pumpkin,0) } grestore
-
-/Times-Bold findfont
-  15 scalefont setfont
-  0.50 0.24 dc moveto (+1) show
+/Times-Bold findfont 15 scalefont setfont $black
+gsave 
+  0.18 0.15 dc translate
+  0.65 dup scale
+  gsave ${\ chip($blue,4) } grestore
+  8 -3 moveto (:) show
+  gsave 22 0 translate ${\ chip($pumpkin,0) } grestore
+  gsave
+    32 0 translate $black 1 setlinewidth
+    newpath
+       0 0 moveto  arrowlen 0 rlineto
+       arrowhead dup neg exch  rmoveto
+       arrowhead dup neg       rlineto
+       arrowhead neg dup       rlineto
+       stroke
+  grestore
+grestore
 
 END
 
   $o .= exposition(<<END);
-The next 1/2/4 pumpkins you place are
-each moved one extra space.
-(After applying any other special effects;
-one extra space no matter how many reds)
+If the previous chip placed was a pumpkin,
+you may exchange it as follows:
+
 END
 
   $o;
@@ -264,6 +275,8 @@ print <<END or die $!;
 /costcirch 0.3 def
 /chip 15 def
 /spot 3.5 def
+/arrowlen 6 def
+/arrowhead 3 def
 
 /costtexth 0.215 def
 /costtextsz 12 def