my $x_cut = 27;
my $y_cut = 120; # XX
my $y_top = 160; # XX
-my $y_cutd = 20;
+my $y_cutd = 10;
my $spacing = 23;
my $colspacing = 24;
my $vhalf = sqrt( $spacing ** 2 - ($colspacing*0.5) ** 2 );
+my $x_pl_zero = $x_cut + 0.5*$colspacing;
+my $y_pl_zero = $y_cut + $spacing - $y_cutd* 0.5 * $x_cut/$colspacing;
+
o <<END;
gsave
0.5 setgray
s{\#.*}{};
next unless m/\S/;
s{^\s*}{};
- s{H}{ -0.5 }g;
+ s{H}{ 0.5 }ge;
s{V}{ $vhalf / $spacing }ge;
s{\*}{1}eg;
my ($x,$y,$money,$veeps,$ruby) = map { eval $_ } split /\s+/;
o <<END;
% place $x $y $money $veeps $ruby
gsave
+ $x_pl_zero $y_pl_zero translate
$x $y translate
-
+ ${\ chip($anychip, 0) }
grestore
END
}