From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Jul 2022 15:02:07 +0000 (+0100)
Subject: wip
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=3994266e44f53b8899956c28dd0819689656d482;p=quacks.git

wip

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index 1f96e19..c2e3453 100755
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -59,6 +59,10 @@ GR
 } def
 END
 
+o <<END;
+    /Helvetica-Bold findfont 6.5 scalefont setfont
+END
+
 sub places ($) {
   my ($repi) = @_;
   my $data = <<END;
@@ -80,7 +84,6 @@ END
 
   $o .= <<END;
     gsave
-    /Helvetica-Bold findfont 6.5 scalefont setfont
 END
   foreach (split /\n/, $data) {
     s{\#.*}{};
@@ -186,6 +189,23 @@ END
 END
 
   repis();
+
+  o <<END;
+    gsave
+      $paper_x $x_cut sub  $y_top 7 sub translate
+
+      gsave
+        arrowlen 2 add neg  0 translate
+        ${\ arrow_any("arrowlen 0 moveto  -30 0 rlineto") }
+      grestore
+
+      -40 0 translate
+      /Helvetica-Bold findfont 6.5 scalefont setfont
+
+     0 0 moveto
+     (+8) show
+    grestore
+END
 }
 
 set();