wip blue

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 107c2c30d34ce0186cafcfeca8135cedd826cf7b..82fac26bfd368e202242a701f80d87d6ba98b712 100755 (executable)
--- 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(