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 2864273bcbb6401ebedace1bbaaf4b59734e6fa5..a7444e38cf1328968adbc495b6e3f7f8c2c3b7a6 100755 (executable)
--- 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