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

diff --git a/layout/slopecalc b/layout/slopecalc
index 33ffe2abe1b5164c90da0090136eb2e352e1ac51..cc1f7947114b4013830cc25487809ee0fd96e11b 100755 (executable)
--- 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),