Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
+ my $line;
+ my $line_word = 'moveto';
$x *= $colspacing;
$y *= $spacing;
$x *= $colspacing;
$y *= $spacing;
- push @line_poses, "$x $y";
+ $line .= " $x $y $line_word";
+ $line_word = 'lineto';
next unless defined $money;
$money += 4 * $repi;
next unless defined $money;
$money += 4 * $repi;
+ ("newpath $line stroke", $o)
$repi $colspacing 2 mul mul 0 translate
END
$repi $colspacing 2 mul mul 0 translate
END
+ o( (places($repi))[1] );