From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Jul 2022 15:14:36 +0000 (+0100)
Subject: itealic money
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=acd005927df4a6aa31866ef5ebfa1a2619caa4cb;p=quacks.git

itealic money

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

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index 2864273..a7444e3 100755
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -59,8 +59,11 @@ GR
 } def
 END
 
+my $veep_font = "/Helvetica-Bold findfont 6.5 scalefont setfont";
+my $money_font = "/Helvetica-BoldOblique findfont 6.5 scalefont setfont";
+
 o <<END;
-    /Helvetica-Bold findfont 6.5 scalefont setfont
+$money_font
 END
 
 sub veepsq ($) {
@@ -84,6 +87,7 @@ sub veepsq ($) {
        stroke
     grestore
 
+    $veep_font
     0 0 moveto
     ($veeps) dup  stringwidth pop -0.5 mul -2.5 rmoveto  show
   grestore
@@ -139,7 +143,7 @@ END
 gsave
   $x $y translate
   gsave ${\ chip($anychip, 0) } grestore
-  -4 1 moveto ($money) show
+  -4.7 1 moveto ($money) show
 
   ${\ veepsq($veeps) }
 END
@@ -209,7 +213,8 @@ END
       -40 0 translate
       /Helvetica-Bold findfont 6.5 scalefont setfont
 
-     -4 0 moveto
+     -4.5 0 moveto
+     $money_font
      (+16) show
 
      4 -2 translate