john@xanth.UUCP (06/17/87)
In <1459@korppi.tut.fi>, Jari Salo <jsa@tut.fi> gives a method for printing in landscape mode from ditroff on a postscript printer. Unfortunately, he must be using some ditroff->postscript software other than TranScript. That inspired me to do something similar for TranScript. Enclosed are context diffs to psroff.sh to allow you to use a -L flag and get landscape mode. Don't forget to set .pl 8.5i and .ll 11.0i (or less for margins/page offset). I got some wonderful results with two-column modes.... *** /tmp/,RCSt1024446 Wed Jun 17 15:16:56 1987 --- psroff.sh Wed Jun 17 14:41:13 1987 *************** *** 11,16 **** --- 11,18 ---- ditroff=ditroff psdit=psdit + land=cat + land1=- nospool= dopt= fil= spool= dit= printer=-P${PRINTER-PostScript} while test $# != 0 *************** *** 22,27 **** --- 24,30 ---- -P*) printer=$1 ;; -C) spool="$spool $1 $2" ; shift ;; -J) spool="$spool $1 $2" ; jobname=$2 ; shift ;; + -L) land=sed ; land1="/^\/xi /s/0 72 11 mul translate/90 rotate/" ;; -) fil="$fil $1" ;; -*) dopt="$dopt $1" ;; *) fil="$fil $1" ; jobname=${jobname-$1} ;; *************** *** 38,44 **** dit="$ditroff -Tpsc -t $dopt $fil " if test "$nospool" = "1" ; then ! $dit | $psdit else ! $dit | $psdit | $spool fi --- 41,47 ---- dit="$ditroff -Tpsc -t $dopt $fil " if test "$nospool" = "1" ; then ! $dit | $psdit | $land "$land1" else ! $dit | $psdit | $land "$land1" | $spool fi -- John Owens Old Dominion University - Norfolk, Virginia, USA john@ODU.EDU old arpa: john%odu.edu@RELAY.CS.NET +1 804 440 4529 old uucp: {seismo,harvard,sun,hoptoad}!xanth!john