From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 3 Dec 2020 17:07:03 +0000 (+0000)
Subject: wip blue
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=ae1c291c58ff7eddca244d813e337dd1d75e3ead;p=quacks.git

wip blue
---

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