blue: fix anomalous ps code

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 024a59c0104c88a7044637a1ee76c4e0328cd971..279b834bf784eb3ed6f78543c2669af6f8d3586f 100755 (executable)
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -269,6 +269,13 @@ sub blue_book () {
 
   $o .= <<END;
 /Times-Bold findfont 15 scalefont setfont $black
+
+gsave
+  0.50 0.65 dc translate
+  0.65 dup scale
+  gsave -10 0 translate ${\ chip($pumpkin,1) } grestore
+  arrow
+grestore
 END
 
   my $exchip = sub {
@@ -297,13 +304,6 @@ gsave
   21 0 translate
 $content
 grestore
-
-gsave
-  0.50 0.65 dc translate
-  0.65 dup scale
-  gsave -10 0 translate ${\ chip($pumpkin,1) } grestore
-  arrow
-grestore
 END
   };