black wip

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index c4b0d07a828b0c2536cc0491265666e9dca104b1..0131072f44b9048c62d4b60bb155d7791ded5326 100755 (executable)
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -622,6 +622,33 @@ players(s) with the next-shortest distance
 get a ruby.
 END
 
+  $o .= <<END;
+    gsave
+      .15 .37 dc translate
+      .7 dup scale
+
+      15 1.5 moveto
+      /Helvetica-Bold findfont 6 scalefont setfont
+      (closest) show
+
+      gsave
+        17 0 translate
+        180 rotate
+        arrow
+      grestore
+      gsave
+        35 0 translate
+        arrow
+        newpath 0 0 moveto -18 0 rlineto stroke
+      grestore
+
+      ${\ chip($pumpkin,0) }
+
+      51 0 translate
+      ${\ chip($moth,   1) }
+    grestore
+END
+
   $o;
 }