o(" stroke\n");
}
-sub o_transform ($) {
+sub o_gsave_transform ($) {
my ($pt) = @_;
my ($ad);
$ad= ang2deg($pt->{A});
$pt= &$calcfn;
$len= sprintf "%.0f", $lenperp * abs($p1-$p0);
$off= $draw =~ m/C/ ? $lmu_lenlabeloff : $lmu_lenlabeloffctr;
- ol(" gsave\n");
- o_transform($pt);
+ o_gsave_transform($pt);
ol(" lf setfont\n".
" 0 $off moveto\n".
" ($len) show\n".
my ($seg, $pt);
foreach $seg (keys %seggraphbest) {
$pt= $seggraphbest{$seg};
- ol(" gsave\n");
- o_transform($pt);
+ o_gsave_transform($pt);
ol(" /s ($seg >) def\n".
" sf setfont\n".
" 0 0 moveto\n".