From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 26 Oct 2021 01:51:35 +0000 (+0100)
Subject: yellow: wip
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=a422650597992aa11a368a44e38f8322ccd0a9a5;p=quacks.git

yellow: wip
---

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