Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!husc6!cmcl2!rutgers!sri-spam!ames!aurora!labrea!jade!opal.berkeley.edu!edmoy
From: edmoy@opal.berkeley.edu
Newsgroups: comp.text
Subject: Re: Can old troff produce long lines?
Message-ID: <5241@jade.BERKELEY.EDU>
Date: Sun, 27-Sep-87 15:14:58 EDT
Article-I.D.: jade.5241
Posted: Sun Sep 27 15:14:58 1987
Date-Received: Mon, 28-Sep-87 02:13:59 EDT
References: <29207@sun.uucp>
Sender: usenet@jade.BERKELEY.EDU
Reply-To: edmoy@opal.berkeley.edu ()
Organization: University of California, Berkeley
Lines: 38
Keywords: old-troff long-lines CAT/4 TranScript

In article <29207@sun.uucp> tut%cairo@Sun.COM (Bill Tuthill) writes:
>I'll have to admit I know ditroff source a lot better than old troff
>source.  As a matter of fact, I can't even understand old troff code.
>Does anybody know how to modify old troff (probably t10.c) so it can
>produce lines longer than 7.54 inches?  Using TranScript like this:
>
>	% ptroff -L
>	.pl 8.5i
>	.ll 9i
>
>pages come out in landscape mode (lines going across the long side of
>the paper), but troff crunches lines into a 7.54 inch wide area, which
>makes them very hard to read.  I'm sure old troff does this because the
>CAT/4 had very narrow paper rolls.  I ask this question not for myself
>(I use ditroff) but for Sun customers too poor to pay for ditroff.
>
>Thanks in advance,
>Bill Tuthill

Bill,

It's was a true experience to muck around in old troff code many years ago.
UGLY!  Actual, ditroff is only a bit better, with it's copious comments
like /* XXX */.

Anyways, the line you are looking for is in t10.c, in the ptesc() function:

		if(((j = (esct + i*(1-2*escm))) > (46*72+18-T_IESC)) ||

The 46 is the pica width of the paper.

Edward Moy
Academic Computing Services
University of California
Berkeley, CA  94720

edmoy@opal.Berkeley.EDU
ucbvax!opal!edmoy