From b61d9da7904a150c034a19fc7226b77daadaa45e Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sat, 6 Nov 2010 13:56:49 +0000
Subject: [PATCH] slopecalc: widen height output fields to support heights
 >100mm

---
 layout/slopecalc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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),
-- 
2.30.2