proper revision ids etc.

[trains.git] / layout / layout

diff --git a/layout/layout b/layout/layout
index f6d9cc0beb6d4406598ee18d95d599fec9b86a61..72fc31b3fc70f9107d0bf71ffddf4b0e0b2da79b 100755 (executable)
--- a/layout/layout
+++ b/layout/layout
@@ -640,7 +640,7 @@ sub o_path_strokeonly () {
     o("      stroke\n");
 }
 
-sub o_transform ($) {
+sub o_gsave_transform ($) {
     my ($pt) = @_;
     my ($ad);
     $ad= ang2deg($pt->{A});
@@ -919,8 +919,7 @@ print DEBUG "ps $p0 $p1 $lenperp ($ppu)\n";
        $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".
@@ -1761,8 +1760,7 @@ while (<>) {
     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".