.\" ###################################################################### ##
.\"         Copyright IBM Corporation 1988,1991 - All Rights Reserved      ##
.\"        For full copyright information see:'andrew/config/COPYRITE'     ##
.\" ###################################################################### ##
.\" $Disclaimer:  $
.ig
	A complete rewrite of the texttroff macro package.
	It would be loosely modelled after the -ms macros

	main concept is to separate the elements of the page,
	so a trap for the footer and a trap for the header separatly

	Also all default values are in well known registers,
	initialized by the .IZ macro

cl - current column (1 or 2)
cx - maximum column (1 or 2)
Lx - maximum line length
LL - current line length
IN - indent
GT - width of intercolumn space

for two columns, LL = (Lx-GT) / 2
	the line used for bodies is always LL - IN

..
.\"
.	\" IZ - initialize. Provide some default settings
.de IZ
.nr PS \n(.p	\" pointsize
.nr VS \n(.v	\" linespacing
.nr HM 1i	\" header margin
.nr FM 1i	\" footer margin
.nr Lx \n(.l	\" maximum line length
.nr LL \n(.l	\" line length
.nr IN 36p	\" indent to allow outdenting headers
.nr GT 24p \" gutter width for two columns
.nr LT \n(.l-\n(INu	\" title length
.NR cx 1
.\" trap setting
.\"
.\" for the top of page
.wh 0 NP
.\" for dealing with footnotes
.wh 14i FO	\" footer trap, temp position
.	\" to process footnote overflow, we fire this trap
.	\" the trap for FO will be moved way up so we will fire
.	\" this one when FO is putting the footnote out
.wh -\\n(FMu Fx
.	\" Now install FO on top of this position so it
.	\" will be fired when no footnote needs to be processed
.ch FO -\\n(FMu
.\" for the bottom tittle
.wh -\\n(FMu/2u BT
..
.\"
.	\" TA - set tabstops
.de TA
.ta \\n(ENu +\\n(ENu +\\n(ENu +\\n(ENu +\\n(ENu +\\n(ENu +\\n(ENu +\\n(ENu +\\n(ENu +\\n(ENu +\\n(ENu +\\n(ENu
..
.\"
.	\" RS - Reset.	Bring troff into a known state
.de RS
.ps \\n(PS
.vs \\n(VSu
.ll \\n(LLu
.lt \\n(LTu
.in \\n(INu
.po \\n(POu
.nr FS \\n(VSu/4u	\" footnote separation
.nr F 0 1		\" for footnote numbering
.ev 1
.	\" where footnotes are processed
.ps \\n(PS-2
.vs (\\n(VSu-2p)u
.ll \\n(Lxu-\\n(INu
.ev
.ev 2
.	\" where the table of contents is stored
.ps \\n(PS
.vs \\n(VSu
.ev
.TA
..
.\"
.	\" string for footnote numebering. Note that the increment takes place here
.	\" note that Fn is defined in texttroff to get the body font
.ds * \v'-.3v'\\*(Fn\s-3\\n+F\s0\fP\v'.3v'
.ig
	Running headers & footers.
	These will be called from the header & footer macro
	halfway the current margins in the macros PT & BT by the macros
	pT and bT respectively.
	Note that we don't use the page counter (%) directly.
	We stick the value in register PN.
	This allows for changing the format of the page number with
	the .af request without screwing up troff
..
.\"
.	\" PT - Page Trap & Bottom Trap macro
.de PT
.if \\n(Tc=2 .br
.po +\\n(INu
.pc %
.ie \\n(Tc=3 .nr PN \\n%-\\n(Pc
.el .nr PN \\n%
.nr Pn \\n%
.pT
.po
..
.	\" default footer string definitions 
.po +\n(INu
.	\" BT	-- Bottom trap handling
.de BT
.nr PF \\n(.f
.nr PX \\n(.s
.ft 1
.ps \\n(PS
.lt \\n(LTu
.po +\\n(INu
.bT
.ft \\n(PF
.ps \\n(PX
.po
.if \\n(Tc=2 \{\
.	nr Pc \\n%
.	nr Tc 3
.	af PN i
.	TC
.\}
..
.	\" DP Duplex -- versus Simplex printing
.	\" if register DP != 0, Simplex printing
.	\"
.	\" Si	-- silly macro, if called as .Simplex
.	\" it will turn to simplex mode
.	\" Ever seen this technique before?
.de Si
.if '\\$1'mplex' .nr DP 1
..
.     \" Du   -- silly macro, if called as .Duplex
.     \" it will turn to duplex mode
.de Du
.if '\\$1'plex' .nr DP 0
..
.	\" OH	-- the recto (odd page) header or default header
.de OH
.tl '\\*(LT'\\*(CT'\\*(RT'
..
.	\" EH	-- the verso (even) page header, only in duplex mode
.de EH
.tl '\\*(RT'\\*(CT'\\*(LT'
..
.	\" pT	-- really do header
.de pT
.ie \\n(DP=0 \{\
.	if o .if \\n(Pn>1 .OH
.	if e .if \\n(Pn>1 .EH
.\}
.el .if \\n(Pn>1 .OH
..
.	\" bT	-- really do footer
.de bT
.ie \\n(DP=0 \{\
.	if o .OB
.	if e .EB
.\}
.el .OB
..
.	\" OB	-- the recto (odd) footer or default footer
.de OB
.tl '\\*(LB'\\*(CB'\\*(RB'
..
.	\" EB	-- the verso (even) footer, only in duplex mode
.de EB
.tl '\\*(RB'\\*(CB'\\*(LB'
..
.	\" no default header string definitions
.ds CT - \\n(PN -
.\"
.\"
.	\" NP - header macro
.ig
	print the header halfway the margins
	only print when not on the first page
..
.de NP
.\".tm in NP page \\n% PO \\n(PO .o \\n(.o
.nr PF \\n(.f
.nr PX \\n(.s
.ft 1
.ps \\n(PS
'sp |\\n(HMu/2u
.if !\\n%=0 .PT
.ps \\n(PX
.ft \\n(PF
'sp |\\n(HMu
.nr cl 1 1	\" left hand column
.mk
.if \\n(cxu==1u \{\
.nr LL \\n(Lxu
.ll \\n(LLu-\\n(INu 
\}
.nr Fc 0 1	\" init footnote count
.nr Fp 0-\\n(FMu	\" current footer place
.ch FO -\\n(FMu	\" reset footer trap
.if \\n(dn .Fz	\" proces left over footnote
.ns	\" no space mode
..
.\"
.	\" FO - footer macro
.de FO
.ie \\n+(cl<=\\n(cx \{\
.po (\\n(POu+((\\n(clu-1u)*(\\n(LLu+\\n(GTu)))u  \" indent to column
.rt	\" upward to mark
.ns
.\}
.el \{\
.po \\n(POu   \" back to left margin
.nr dn 0	\" zero last diversion size
.if \\n(Fc \{\
.	ev 1		\" expand footnotes in ev1
.\".if '\\n(.z'Fy' .tm in overlow .i \\n(.i
.in \\n(INu		\" set indentation to the one for the page
.	nf		\" retain vertical size
.	FN		\" dump the footnotes
.			\" remove them; Don't put a comment on the next line
.			\" with .rm, some troffs go into an infinite loop
.	rm FN
.\".if '\\n(.z'Fy' .tm in overlow .i \\n(.i
.	if \\n(.zFy .di	\"end overflow diversion
.	nr Fc 0		\" disable fx
.	in 0		\" clear indentation
.ev
.\}
.		\" pop environment
'bp
.\}
..
."
.\"	Fx - process footnote overflow
.\"
.de Fx
.if \\n(Fc \{\
.	\" the foonote didn't fit so
.di Fy	\" divert the overflow into Fy (we are still in env 1, so nofill mode)
.	\" since we are in nofill mode and head indentation set,
.in 0	\" set no indentation, so we don't indent twice
.\}
..
.\"
.\"	FS - Footnote Start
.de FS
.da FN	\" divert (or append) footnote
.ev 1	\" in environment 1
.if \\n+(Fc=1 .FM	\" if first include seperator
.fi	\" process in fill mode
.if !\\n(Fo .FP	\" Footnote paragraph if not processing overflow
..
.\"
.	\" FP - footnote paragraph
.de FP
.sp \\n(FSu
\v'-.3'\s-3\\nF\s0\v'.3'\|\c
..
.\"
.\"	FE - Footnote End
.de FE
.br		\" flush the output buffer
.nr Sv \\n(.v	\" save baselinespacing of this env
.ev		\" pop env
.di		\" end the diversion
.nr Fp -\\n(dn	\" new footer position
.if \\n(Fc=1 .nr Fp -(\\n(.v-\\n(Sv)	\" For Separator
.ch FO \\n(Fpu	\" change the trap, Fp is negative
.	\" See whether the stuff really fits.
.	\"if not change trap and we overflow
.if (\\n(nl+1v)>(\\n(.p+\\n(Fp) .ch FO \\n(nlu+1v	\" it didn't fit,
.	\" so fire the FO macro on the next line
..
.\"
.	\" FM - footnote separator one inch line
.de FM
\l'1i'
.br
..
.\"
.\"	Fz - process footnote overflow
.de Fz
.nr Fo 1
.FS
.nf	\" is already processed, so keep size
.Fy	\" where Fx put it
.nr Fo 0
.FE
..
.\"
.\"	HE - next thing will be a header
.\" minimalistic widow control in HE macro.
.\" We aks for a couple of lines with the .ne statement, will trigger the
.\" bottom of page trap on the moment when there is no space 
.de HE
.\".br
.ne 3.1v
..
.de OC
.br
.ne 3.1v
..
.\"
.\"	IC - in table of contents
.\"	$1 type of header $3 number, $2 text
.\"
.de IC
.nr Tc 1	\"flag that we have a contents
.ev 2
.if !'\\$3'NO' \{\
.	nr Tx \w'\\$3\0'u
.	if \\n(Tx>\\n(Ta .nr Ta \\n(Tx
.\}
.nr Tp \w'\0\\n(PN'u
.da Tc
\\!.xx "\\$1" "\\$2" \\$3 \\n(PN
.br
.di
.ev
..
.\"
.\"	An item in the table of contents
.de xx
.if \\$1=1 .sp .5
.ie !'\\$3'NO' \\$3\t\\$2\a\t\\$4
.el .ie \\n(Ta \&\t\\$2\a\t\\$4
.el \&\\$2\a\t\\$4
..
.\"	EM
.\" check for work at end of file
.de EM
.if \\n(Tc \{\
\c
.nr Tc 2
.\}
.\"tm EM called, Tc: \\n(Tc
..
.\" do the things we want at the end of the paper
.de TC
.\"tm TC called
'bp
.ft B
.\".tm tabel of contents
.ce
.rs
.sp
.ti -\\n(INu
\s+2Table of Contents\s0
.sp 2
.ft R
.nf
.ev 2
.	\" where the table of contents is stored
.nf
.nr Tb \\n(LLu-\\n(Tpu-\\n(INu
.nr c \w'1.1.1.1\0'u
.ie \\n(Ta .ta \\n(Tau \\n(Tbu \\n(LLu-\\n(INuR
.el .ta \\n(Tbu \\n(LLu-\\n(INuR
.in \\n(INu
.Tc
.ev
..
.\"
.\"	set end macro
.em EM
.\"
.\"	ix - index creation macros.
.\"	basic idea:	if	not in a diversion,
.\"				 put the arguments on standard error
.\"			else
.\"				call ix again (which will actually happen when
.\"				the diverted string is read back)
.\"			elif
.de ix
.ie '\\n(.z'' .tm ix: \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9	\\n%
.el \\!.ix \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
..
.\"
.\"
.\" Begin of the PSmacros, courtesy of Fred Hansen
.\"
.ig
	zT - 1 if PostScript output
	zw - line length remaining after the object
	zH - line length preceeding the object
	zV - current vertical place in current diversion
	zx - space left on line after placing the raster and 10 ems
..
.nr zT 0
'\"	CCH added next line for post printer type
.if  "\*(.T"post"  'nr zT 1
.if  "\*(.T"postscript"  'nr zT 1
.if  "\*(.T"psc"  'nr zT 1
.de PB
'ne \\$2p
'nr zw \\n(.l-\\n(.k-1m-\\$1p
'nr zH \\n(.k
'nr zV \\n(.d
'if  \\n(zT  \\{\\
'ie  !\\n(zw  \\{\\
'nr zx \\n(.l-\\$1p-10m
'nr zV \\n(zV+1v
.sp 0
\\v'-\.37v'\\ \\v'+\.37v'\\c\\}
'el \\{\\
'nr zx \\n(zw-10m
\\v'-\.37v'\\ \\v'+\.37v'\\c\\}
.sp |\\n(zVu
'if ((\\n(zx<=0)&(\\$2p>0\.37v)) \\x'\\$2p-0\.37v'
\\!%
\\!%!
\\!  PB
'if \\n(.j=3 \\{\\
\\!    /troffadjust { neg 2 idiv } def
'ss\\}
'if \\n(.j=5 \\{\\
\\!    /troffadjust { neg } def
'ss\\}
'if \\n(.j<3 \\{\\
\\!    /troffadjust { pop 0 } def
'ss\\}\\}
..
.\"
.de PE
'if \\n(zT \\{\\
\\!  PE
\\!.
'ie \\n(zx \\{\\
'if (\\$2p>0\.37v) \\x'\\$2p-0\.37v'\\c
\\h'-\\n(.ku+\\n(zHu+\\$1p'\\c\\}
'el  .br\\}
'if !\\n(zT \\{\\
'if  !\\n(zw  \\{\\
 \\h'-\\n(.k'\\ \\h'-\\n(.w'\\c
.sp -1\\}
\\x'\\$2p-0\.37v'\\v'-\.37v'\\D'l \\$1p \
0.0i'\\D'l 0.0i \\$2p'\\D'l -\\$1p 0.0i'\\D'l 0.0i \
-\\$2p'\\v'+\.37v'\\h'\\$1p'\\c\\}
..
.\"
.\" End of PSmacros
.\"
.\"
.\"
.\"
.\"
.ig

These macros define a proc with the PostScript for the inset in it.
This fails for rasters which generally read the image from the 
data stream on-the-fly.

The proc approach was chosen because it is difficult to synchronize \! lines
with the regular output.

.\" new PS macros
.\"
.nr zC 0 1
.\"
.de PB
\\!%
\\!%!
\\!  /AUIS\\n+(zC  {
\\! gsave (,) dup stringwidth neg exch neg exch rmoveto 1 setgray show grestore 
\\!  PB
\\!  /troffadjust { pop 0 } def
..
.\"
.\"
.\"
.ig


.de PE
\\! PE } def
\\!.
'ne \\$2p
\\h'\\$1p-\\w','u+(\\w' 'u/2u)'\\x'\\$2p-9p'\\x'-11p',\\X'AUIS\\n(zC'\\h'-(\\w' 'u/2u)'
..
.\"
.\" If "\*(.T" is "ps", we're presumably using "groff"; set "zT" to 1,
.\" and load up the "groff" version of the macros (which use "groff"
.\" features, and, as such, might not be usable in a package
.\" that Boring Old "troff" and "ditroff" also have to read).
.\"
.if "\*(.T"ps" \{\
.	nr zT 1
.	so /usr/andrew/lib/tmac/tmac.psatk
.\}
.\"
.\" two columns
.de 2C
.nr cx 2u
.nr LL ((\\n(Lxu-\\n(GTu)/2u)u
.ll (\\n(LLu-\\n(INu)u
.mk
..
.\"
.\" return to one column at next page break
.de 1C
.nr cx 1u
..