/Helvetica-Bold findfont 6.5 scalefont setfont
END
+sub veepsq ($) {
+ my ($veeps) = @_;
+
+ my $sqx = 4.1;
+ my $sqy = 3.2;
+
+ <<END;
+ gsave
+ -1.5 -3.0 translate
+
+ gsave
+ 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
+END
+}
+
sub places ($) {
my ($repi) = @_;
my $data = <<END;
$money += 4 * $repi;
$veeps += 2 * $repi;
- my $sqx = 4.1;
- my $sqy = 3.2;
-
$o .= <<END;
% place $x $y $money $veeps $ruby
gsave
gsave ${\ chip($anychip, 0) } grestore
-4 1 moveto ($money) show
- gsave
- -1.5 -3.0 translate
-
- gsave
- 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
-
+ ${\ veepsq($veeps) }
END
$o .= <<END if $ruby;