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