chiark
/
gitweb
/
~ijackson
/
trains.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
bcf9478
)
improved distance label placement when centrelines drawn
author
ian
<ian>
Sat, 16 Sep 2006 01:27:29 +0000
(
01:27
+0000)
committer
ian
<ian>
Sat, 16 Sep 2006 01:27:29 +0000
(
01:27
+0000)
layout/layout
patch
|
blob
|
history
diff --git
a/layout/layout
b/layout/layout
index b88ac2c25657da81b798827babbc4b4826bf4f7a..31d1daf83046261aadb66e548b9abe00225e4fe0 100755
(executable)
--- a/
layout/layout
+++ b/
layout/layout
@@
-168,7
+168,8
@@
our $lmu_txtboxh= $lmu_marktpt * 1.100;
our $lmu_txtboxpadx= $lmu_marktpt * 0.335;
our $lmu_txtboxoff= $lmu_marklw / 2;
our $lmu_txtboxlw= 1;
our $lmu_txtboxpadx= $lmu_marktpt * 0.335;
our $lmu_txtboxoff= $lmu_marklw / 2;
our $lmu_txtboxlw= 1;
-our $lmu_lenlabeloff= -$lmu_marklw * 1.0;
+our $lmu_lenlabeloffctr= -$lmu_marklw * 1.0;
+our $lmu_lenlabeloff= $lmu_marklw * 0.5;
our $olu_left= 10 * $scale;
our $olu_right= 217 * $scale - $olu_left;
our $olu_left= 10 * $scale;
our $olu_right= 217 * $scale - $olu_left;
@@
-772,15
+773,18
@@
print DEBUG "ps $p0 $p1 $lenperp ($ppu)\n";
o(" stroke\n");
}
if ($draw =~ m/D/) {
o(" stroke\n");
}
if ($draw =~ m/D/) {
- my ($pt,$ad,$len);
+ my ($pt,$ad,$len
,$off
);
$param= ($p0+$p1)*0.5;
$pt= &$calcfn;
$ad= ang2deg($pt->{A});
$len= sprintf "%.0f", $lenperp * abs($p1-$p0);
$param= ($p0+$p1)*0.5;
$pt= &$calcfn;
$ad= ang2deg($pt->{A});
$len= sprintf "%.0f", $lenperp * abs($p1-$p0);
+ $off= $draw =~ m/C/ ? $lmu_lenlabeloff : $lmu_lenlabeloffctr;
ol(" gsave\n".
" $pt->{X} $pt->{Y} translate\n".
" $ad rotate\n".
ol(" gsave\n".
" $pt->{X} $pt->{Y} translate\n".
" $ad rotate\n".
- " lf setfont 0 $lmu_lenlabeloff moveto ($len) show\n".
+ " lf setfont\n".
+ " 0 $off moveto\n".
+ " ($len) show\n".
" grestore\n");
}
return unless $draw =~ m/[ARS]/;
" grestore\n");
}
return unless $draw =~ m/[ARS]/;