From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 26 Oct 2021 01:21:05 +0000 (+0100)
Subject: blue: fix anomalous ps code
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=6bb60e4f3ba7bb3e416b83777d89cc330545df4d;p=quacks.git

blue: fix anomalous ps code
---

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 024a59c..279b834 100755
--- 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
   };