.\" myms --
.\" Modifications to the -ms macros.
.\" N.Batchelder
.\"
.	\" UX - UNIX macro
.de UX
.ie \\n(UX \s-1UNIX\s0\\$1
.el \{\
\s-1UNIX\s0\\$1\**
.FS
\s-1UNIX\s0 is a trademark of AT&T Bell Laboratories.
.FE
.nr UX 1
.\}
..
.	\" I - italic font
.de I
.nr PQ \\n(.f
.if t .ft 2
.ie \\$1 .if n .ul 999
.el .if n .ul 1
.if t .if !\\$1 \&\\$1\^\f\\n(PQ\\$2
.if n .if \\n(.$=1 \&\\$1
.if n .if \\n(.$>1 \&\\$1\c
.if n .if \\n(.$>1 \&\\$2
..
.	\" TY - typewriter font
.de TY
.nr PQ \\n(.f
.if t .if \\$1 .ft CB
.if t .if !\\$1 \&\f(CB\\$1\f\\n(PQ\\$2
.if n .if !\\$1 \&\\$1\\$2
..
.	\" SC - a little smaller (for Small Caps)
.de SC
.nr PQ \\n(.s
.if t .ps -1
.if t .if !\\$1 \&\\$1\s\\n(PQ\\$2
.if n .if \\n(.$=1 \&\\$1
.if n .if \\n(.$>1 \&\\$1\c
.if n .if \\n(.$>1 \&\\$2
..
.	\" PS & PE -- the default macros that came with the source.
.de PS	\" start picture
.	\" $1 is height, $2 is width, both in inches
.if t .sp .3
.in (\\n(.lu-\\$2)/2u
.ne \\$1
..
.de PE	\" end of picture
.in
.if t .sp .6
..
.lg off		\" they don't work right
.nr PO 1.32i	\" center it.
.\"	An attempt to add full width floating keeps to -ms two column mode.
.de HD
.if \\n(W? \{\
.	rn NP @@
.	ev 1
.	nf
.	ls 1
.	in 0
.	W>
.	rm W>
.	nr W? 0
.	br
.	in
.	ls
.	fi
.	ev
.	rn @@ NP \}
..
.de KW		\" Wide keep. Floats to the top of the next page.
.nr KN \\n(.u
.if !\\n(IK .if \\n(NX>1 .W!
.if !\\n(IK .if \\n(NX<=1 .FQ
.nr IK +1
..
.	\" W! - process wide keeps (modified from FQ).
.de W!
.nr KI \\n(.i			\" Save the indent
.ev 2
.TA
.br
.in \\n(KIu
.ps \\n(PS
.if \\n(VS>=40 .vs \\n(VSu
.if \\n(VS<=39 .vs \\n(VSp
.ll \\n(LLu
.lt \\n(LTu
.di W>		\" Get the real thing into W>
.nr W? 1
.. \" end of WQ
.nr W? 0
.\"	WE - end wide keep.
.de WE
.if \\n(IK .if !\\n(IK-1 .if !\\n(IF .W.
.if \\n(IK .nr IK -1
..
.	\" W. - real wide release
.de W.
.br
.di
.nf
.rs
.ce 0
.if \\n(KN .fi			\" Restore fill state.
.ev
..
.\" psfig.mac -- definitions for the psfig paper.
.tr \(ui 
.if t .ds Ps "P\s-2OST\%\s0S\s-2CRIPT\s0
.if t .ds Tr "T\s-2ROFF\s0
.if t .ds Dt "D\s-2ITROFF\s0
.if n .ds Ps "Post\%Script
.if n .ds Tr "Troff
.if n .ds Dt "Ditroff
.if t .ds Nr "N\s-2ROFF\s0
.if n .ds Nr "Nroff
.if t .ds Tx "T\h'-.2m'\v'.5n'E\v'-.5n'\h'-.06m'X
.if n .ds Tx "TeX
.\"
.de Ex		\" Start an example
.if !\\$1 .if t \&\s8\z\(ui\H'10'\f(CB\\$1\s0\z\(ui\H'0'\fP\\$2
.if !\\$1 .if n \&`\\$1'\\$2
.if \\$1 \{\
.	DS I \\n(PIu
.	ft CB
.	ps 8
.	nf
\z\(ui\H'10'\c
.	eo\}
..
.de En		\" End an example
.ec
.fi
.ps 10
.R
.DE
\z\(ui\H'0'\c
..
.if t .nr PI .2i
.if n .nr PI 5n
.\" psfig macros. An argument will turn off centering.
.de F+
.br
.nr F, \\n(.u
.nf
.if \\n(.z .sp -.5
.if \\n(.$=0 .ce 9999
..
.de F-
.ce 0
.if \\n(F, .fi
.br
..

