$ruby ||= 0;
$x *= $colspacing;
$y *= $spacing;
+ $x += $x_pl_zero;
+ $y += $y_pl_zero;
$line .= " $x $y $line_word";
$line_word = 'lineto';
$o .= <<END;
% place $x $y $money $veeps $ruby
gsave
- $x_pl_zero $y_pl_zero translate
$x $y translate
gsave ${\ chip($anychip, 0) } grestore
-5 0 moveto ($money) show
grestore
END
- ("newpath $line stroke", $o)
+ (" newpath $line stroke ", $o)
}
sub repis () {
- for my $repi (0..$nrepis-1) {
- o(<<END);
+ for my $places_i (qw(0 1)) {
+ for my $repi (0..$nrepis-1) {
+ o(<<END);
+% repi $places_i $repi
gsave
$repi $colspacing 2 mul mul 0 translate
END
- o( (places($repi))[1] );
- o(<<END);
+ o( (places($repi))[$places_i] );
+ o(<<END);
grestore
END
+ }
}
}