Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
$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
}