yellow: wip

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index d267dc89e92da4b74460af4a6bf845945c0ba475..c5bc982d61db4e899eb13502e3d738e9b7f8d743 100755 (executable)
--- 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