trim-ps script to make files print faster

[trains.git] / layout / layout

diff --git a/layout/layout b/layout/layout
index ed8ba2f2c41b4507a18b961c817763eb78964489..d20102316e4e885b4956c60bcc3c9ce069f8f079 100755 (executable)
--- a/layout/layout
+++ b/layout/layout
@@ -169,7 +169,7 @@ our $lmu_lenboxh= $lmu_marktpt * 1.100;
 our $lmu_txtboxpadx= $lmu_marktpt * 0.335;
 our $lmu_lenboxpadx= $lmu_marktpt * 0.005;
 our $lmu_txtboxoff= $lmu_marklw / 2;
-our $lmu_lenboxoff= -$lmu_marklw * 1.5;
+our $lmu_lenboxoff= -$lmu_marklw * 1.0;
 our $lmu_txtboxlw= 1;
 
 our $olu_left= 10 * $scale;
@@ -777,13 +777,12 @@ print DEBUG "ps $p0 $p1 $lenperp ($ppu)\n";
        my ($pt,$ad,$len);
        $param= ($p0+$p1)*0.5;
        $pt= &$calcfn;
-       $ad= ang2deg($pt->{A}) + 90;
+       $ad= ang2deg($pt->{A});
        $len= sprintf "%.0f", $lenperp * abs($p1-$p0);
        ol("      gsave\n".
           "        $pt->{X} $pt->{Y} translate\n".
-          "        $ad rotate 0.75 dup scale\n".
-          "        0 $lmu_lenboxh $lmu_lenboxpadx $lmu_lenboxoff".
-          " ($len) label_in_box\n".
+          "        $ad rotate\n".
+          "        lf setfont  0 $lmu_lenboxoff moveto  ($len) show\n".
           "      grestore\n");
     }
     return unless $draw =~ m/[ARS]/;