can fit 139 lines on an atp -B page

diff --git a/layout/slopecalc b/layout/slopecalc
index 3133646caf4e28c96a5fc59ac6bad1ad5ce9c2ae..2c113e9a33c2ed6d83f15efcad6a6d99a4a21e27 100755 (executable)
--- a/layout/slopecalc
+++ b/layout/slopecalc
@@ -24,7 +24,7 @@ use strict qw(vars refs);
 
 our $halfreverselen= 80; # mm to change from going flat to going up/down
 our $printinterval= 10;
-our $totallinesout= 132;
+our $totallinesout= 139;
 
 our @cp= ({ L => 0 });
 # $cp[]{H}    height
@@ -215,7 +215,7 @@ sub dump_schedule ($) {
     }
     if ($interpolate) {
        my $more_l= 0;
-       while ($lines < $totallinesout) {
+       while ($lines+2 < $totallinesout) {
            lprint_interp($more_l,
                          $last->{L} + $more_l,
                          $last->{H} + $last->{S} * $more_l,