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

purple
---

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index cdcfc33..c1d962c 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -315,15 +315,32 @@ END
   $o .= <<END;
 /Times-Bold findfont 15 scalefont setfont $black
 gsave
-  0.16 0.15  dc translate
+  0.16 0.20  dc translate
   0.60 dup scale
 
 $input
-  10 0 translate
-  0 -10 moveto (...) show
-  20 0 translate
+  8 -12 moveto (...) show
+  27 0 translate
 $input
 grestore
+
+gsave
+/Times-Roman findfont
+  32 scalefont setfont
+  0.48 0.14 dc moveto (}) show
+grestore
+
+gsave
+   0.83 0.25 dc translate
+   0.85 dup scale
+   ${\ chip(['0 0 0 0.5', ''], 0) }
+grestore
+
+gsave
+  0.72 0.22 dc translate
+  0.50 dup scale
+   $black 0 0 moveto (?+?) show
+grestore
 END
 
   $o .= exposition(<<END);