From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Jul 2022 14:40:08 +0000 (+0100)
Subject: veeps etc.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=4aa35c4118495f59889693f57c4333c6138cc146;p=quacks.git

veeps etc.

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

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index ea636c8..2be98f9 100755
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -80,7 +80,7 @@ END
 
   $o .= <<END;
     gsave
-    /Helvetica-Bold findfont 7 scalefont setfont
+    /Helvetica-Bold findfont 6.5 scalefont setfont
 END
   foreach (split /\n/, $data) {
     s{\#.*}{};
@@ -103,8 +103,8 @@ END
     $money += 4 * $repi;
     $veeps += 2 * $repi;
 
-    my $sqx = 4.2;
-    my $sqy = 3.5;
+    my $sqx = 4.1;
+    my $sqy = 3.2;
 
     $o .= <<END;
 % place $x $y $money $veeps $ruby
@@ -113,7 +113,7 @@ gsave
   gsave ${\ chip($anychip, 0) } grestore
   -4 1 moveto ($money) show
 
-  -2 -3.0 translate
+  -1.5 -3.0 translate
 
   gsave
     newpath  -$sqx -$sqy moveto