From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 26 Oct 2021 23:09:52 +0000 (+0100)
Subject: black wip
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=ba0fd90ab038b68cf9db9ade7e116b4d5227107f;p=quacks.git

black wip
---

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;
 }