From a077632ec0d9f12fe579dc4268dadd106b23c5a6 Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Sun, 3 May 2009 16:55:55 +0000
Subject: [PATCH] can fit 139 lines on an atp -B page

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

diff --git a/layout/slopecalc b/layout/slopecalc
index 3133646..2c113e9 100755
--- 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,
-- 
2.30.2