From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sat, 6 Nov 2010 13:56:49 +0000 (+0000)
Subject: slopecalc: widen height output fields to support heights >100mm
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=b61d9da7904a150c034a19fc7226b77daadaa45e;p=trains.git

slopecalc: widen height output fields to support heights >100mm
---

diff --git a/layout/slopecalc b/layout/slopecalc
index 33ffe2a..cc1f794 100755
--- a/layout/slopecalc
+++ b/layout/slopecalc
@@ -171,7 +171,7 @@ sub parse_args () {
 
 sub lprint_interp ($$$$) {
     my ($l_more,$l,$y,$cc) = @_;
-    lprintf("   %4s        %7d  %7.2f  %s", "+$l_more", $l, $y, $cc);
+    lprintf("   %4s        %7d  %8.2f  %s", "+$l_more", $l, $y, $cc);
 }
 
 sub dump_schedule ($) {
@@ -183,7 +183,7 @@ sub dump_schedule ($) {
     my $last;
     for ($i=0; $i<@cp; $i++) {
 	my $this= $cp[$i];
-	lprintf("%4s  %7s  %7s   =%5.2f  %s %5.02f%%   %s   %s",
+	lprintf("%4s  %7s  %7s   =%6.2f  %s %5.02f%%   %s   %s",
 		"#$i",
 		'+'.($this->{L} - $last_l),
 		'@'.($this->{L} - $absoffset),