my $dx = $token_sz * 1.25;
my $linecolour = darkerpscolour('cube', 0.25);
my @pos;
my $dx = $token_sz * 1.25;
my $linecolour = darkerpscolour('cube', 0.25);
my @pos;
- for my $i (-1..$#$track) {
- $pos[$i+1] = mkvec(0, ($i - 0.5 * @$track) * $dy);
+ for my $i (0..$#$track) {
+ $pos[$i] = mkvec(0, ($i - 0.5 * @$track) * $dy);
my $prepline = "$linecolour $hs_lw setlinewidth newpath";
o(" $prepline\n");
o(" ",psvec($pos[0])," moveto ",psvec($pos[-1])," lineto stroke\n");
my $prepline = "$linecolour $hs_lw setlinewidth newpath";
o(" $prepline\n");
o(" ",psvec($pos[0])," moveto ",psvec($pos[-1])," lineto stroke\n");
" ",psvec(mkvec( $dx + $cube_sz, 0 )),
" rlineto stroke\n");
}
o(" ",($token_sz * 0.6 + $cube_gap)," ",
" ",psvec(mkvec( $dx + $cube_sz, 0 )),
" rlineto stroke\n");
}
o(" ",($token_sz * 0.6 + $cube_gap)," ",