From a422650597992aa11a368a44e38f8322ccd0a9a5 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 26 Oct 2021 02:51:35 +0100
Subject: [PATCH] yellow: wip

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

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index d267dc8..c5bc982 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -484,6 +484,18 @@ gsave
   -26 0 translate
   gsave 26 0 translate ${\ chip($anychip,0) } grestore
   gsave 46 0 translate ${\ chip($pumpkin,0) } grestore
+  10 5 translate
+  -105 rotate
+  ${\ arrow_any("
+    gsave
+     arrowlen 0 translate
+  -75 rotate
+    putback_len neg 0
+      putback_len
+      180 0 arc
+    stroke
+    grestore
+  ") }
 grestore
 END
 
@@ -547,6 +559,7 @@ sub arrow_any ($) { <<END;
   $black 1 setlinewidth
     newpath
        $_[0]
+       arrowlen 0 moveto
        arrowhead dup neg exch  rmoveto
        arrowhead dup neg       rlineto
        arrowhead neg dup       rlineto
@@ -568,6 +581,7 @@ $page_pre
 /spot 3.5 def
 /arrowlen 6 def
 /arrowhead 3 def
+/putback_len 8 def
 
 /costtexth 0.215 def
 /costtextsz 12 def
-- 
2.30.2