From ae1c291c58ff7eddca244d813e337dd1d75e3ead Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 3 Dec 2020 17:07:03 +0000
Subject: [PATCH] wip blue

---
 pumpkin-books.ps.pl | 31 ++++++++++++++++++++++---------
 1 file changed, 22 insertions(+), 9 deletions(-)

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index e2c6b2b..107c2c3 100755
--- 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
-- 
2.30.2