From ba0fd90ab038b68cf9db9ade7e116b4d5227107f Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 27 Oct 2021 00:09:52 +0100
Subject: [PATCH] black wip

---
 pumpkin-books.ps.pl | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index c4b0d07..0131072 100755
--- 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;
 }
 
-- 
2.30.2