Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!utgpu!water!watmath!clyde!ima!mirror!xanth!john
From: john@xanth.UUCP
Newsgroups: comp.graphics,comp.unix.wizards,comp.lang.postscript
Subject: Re: Horizontal format with pic or Postscript?
Message-ID: <1316@xanth.UUCP>
Date: Wed, 17-Jun-87 15:21:03 EDT
Article-I.D.: xanth.1316
Posted: Wed Jun 17 15:21:03 1987
Date-Received: Fri, 19-Jun-87 05:35:43 EDT
References: <1642@pbhye.UUCP> <1459@korppi.tut.fi>
Organization: Old Dominion University, Norfolk Va.
Lines: 53
Xref: utgpu comp.graphics:739 comp.unix.wizards:2520 junk:5295
Summary: Landscape mode in TranScript

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