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

---
 pumpkin-books.ps.pl | 42 +++++++++++++++++++++++++++++-------------
 1 file changed, 29 insertions(+), 13 deletions(-)

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 107c2c3..82fac26 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -195,20 +195,26 @@ sub blue_book () {
   $o .= <<END;
 /Times-Bold findfont 15 scalefont setfont $black
 gsave 
-  0.18 0.15 dc translate
-  0.65 dup scale
-  gsave ${\ chip($blue,4) } grestore
+  0.16 0.50 dc translate
+  0.60 dup scale
+  gsave ${\ chip($blue,1) } 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
+  3 0 translate
+  0.8 dup scale
+  1 0 translate
+  20 0 translate
+  gsave ${\ chip($green,1) } grestore
+  8 -5 moveto (/) show
+  gsave 20 0 translate  ${\ chip($green,1) } grestore
+  50 -4 moveto (/) show
+  gsave 40 0 translate  ${\ chip($green,1) } grestore
+  70 -4 moveto (/) show
+  gsave 60 0 translate  ${\ chip($green,1) } grestore
+grestore
+gsave 
+  0.16 0.15 dc translate
+  0.60 dup scale
+  gsave ${\ chip($blue,4) } grestore
 grestore
 
 END
@@ -295,6 +301,16 @@ print <<END or die $!;
     exch                 % x y
 } def
 
+/arrow {
+  $black 1 setlinewidth
+    newpath
+       0 0 moveto  arrowlen 0 rlineto
+       arrowhead dup neg exch  rmoveto
+       arrowhead dup neg       rlineto
+       arrowhead neg dup       rlineto
+       stroke
+} def
+
 END
 
 print tile(
-- 
2.30.2