From: ian <ian>
Date: Sun, 3 May 2009 16:55:55 +0000 (+0000)
Subject: can fit 139 lines on an atp -B page
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=a077632ec0d9f12fe579dc4268dadd106b23c5a6;p=trains.git

can fit 139 lines on an atp -B page
---

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,