purple

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index cdcfc33ca3e406ab9e3eec99dbbd32169a4cb0b0..c1d962c02e76ecf04951968f0651012b1100ecac 100755 (executable)
--- 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);