o(" $prepline\n");
o(" gsave ",
psvec($pos[$i] + mkvec(-0.0 * $token_sz, $dy/2))," translate\n");
- if ($i >= 0 &&
- ($i == 0 ||
- $track->[$i] != $track->[$i-1])) {
- my $t_sz = 24;
- my $shrink = ($hs_sz * 0.75 / $deck_h);
- o(" gsave % T M $i\n");
- o(" -44 -6.5 translate\n");
- o(" 0.8 .8 scale \n");
- o(" ",0.6 * $dx, " ", -0.28 * $dy," translate\n");
- o(" gsave");
- o(" $shrink dup scale -90 rotate\n");
- o(" newpath ", ($hs_lw / $shrink)," setlinewidth\n");
- o(" deck1path stroke\n");
- o(" grestore");
- o(" /Helvetica-Bold findfont $t_sz scalefont setfont\n");
- o(" 12 -22 moveto ($track->[$i]) show");
- o(" grestore\n");
- }
+
+ my $t_sz = 24;
+ my $shrink = ($hs_sz * 0.75 / $deck_h);
+ o(" gsave % T M $i\n");
+ o(" -44 -6.5 translate\n");
+ o(" 0.8 .8 scale \n");
+ o(" ",0.6 * $dx, " ", -0.28 * $dy," translate\n");
+ o(" gsave");
+ o(" $shrink dup scale -90 rotate\n");
+ o(" newpath ", ($hs_lw / $shrink)," setlinewidth\n");
+ o(" deck1path stroke\n");
+ o(" grestore");
+ o(" /Helvetica-Bold findfont $t_sz scalefont setfont\n");
+ o(" 12 -22 moveto ($track->[$i]) show");
+ o(" grestore\n");
+
if ($i > 0) {
o(" 0 -$dy moveto",
" ",psvec(mkvec( $dx + $cube_sz, 0 )),