From 4d1c25f24c7126790b8b375043ad89b05156b358 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Jul 2022 15:33:45 +0100
Subject: [PATCH] wip

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 overflow-tube.ps.pl | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index ed30bf4..e38f280 100755
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -103,12 +103,29 @@ END
     $money += 4 * $repi;
     $veeps += 2 * $repi;
 
+    my $sq = 3;
+
     $o .= <<END;
 % place $x $y $money $veeps $ruby
 gsave
   $x $y translate
   gsave ${\ chip($anychip, 0) } grestore
   -5 0 moveto ($money) show
+
+  -5 -2.5 translate
+
+  gsave
+    newpath  -$sq -$sq moveto
+             -$sq  $sq lineto
+              $sq  $sq lineto
+              $sq -$sq lineto closepath
+
+     gsave 1 setgray fill grestore
+     stroke
+  grestore
+
+  ($veeps) dup  stringwidth pop -0.5 mul -2.5 rmoveto  show
+
 grestore
 END
   }
-- 
2.30.2