From 5340f5724bafc129d9a59201a940a67c713b35e9 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Jul 2022 15:38:30 +0100
Subject: [PATCH] w

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

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index e38f280..ea636c8 100755
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -80,7 +80,7 @@ END
 
   $o .= <<END;
     gsave
-    /Helvetica-Bold findfont 8 scalefont setfont
+    /Helvetica-Bold findfont 7 scalefont setfont
 END
   foreach (split /\n/, $data) {
     s{\#.*}{};
@@ -103,27 +103,30 @@ END
     $money += 4 * $repi;
     $veeps += 2 * $repi;
 
-    my $sq = 3;
+    my $sqx = 4.2;
+    my $sqy = 3.5;
 
     $o .= <<END;
 % place $x $y $money $veeps $ruby
 gsave
   $x $y translate
   gsave ${\ chip($anychip, 0) } grestore
-  -5 0 moveto ($money) show
+  -4 1 moveto ($money) show
 
-  -5 -2.5 translate
+  -2 -3.0 translate
 
   gsave
-    newpath  -$sq -$sq moveto
-             -$sq  $sq lineto
-              $sq  $sq lineto
-              $sq -$sq lineto closepath
+    newpath  -$sqx -$sqy moveto
+             -$sqx  $sqy lineto
+              $sqx  $sqy lineto
+              $sqx -$sqy lineto closepath
 
      gsave 1 setgray fill grestore
+     0.5 setlinewidth
      stroke
   grestore
 
+  0 0 moveto
   ($veeps) dup  stringwidth pop -0.5 mul -2.5 rmoveto  show
 
 grestore
-- 
2.30.2