.\"	@(#)e.tmac	2.31 (Berkeley) 5/21/88
.\"	Modified by James Clark for use with groff.
.\"
.\" Copyright (c) 1988 Regents of the University of California.
.\" All rights reserved.
.\"
.\" Redistribution and use in source and binary forms are permitted
.\" provided that this notice is preserved and that due credit is given
.\" to the University of California at Berkeley. The name of the University
.\" may not be used to endorse or promote products derived from this
.\" software without specific prior written permission. This software
.\" is provided ``as is'' without express or implied warranty.
.\"	%beginstrip%
.\"
.\"**********************************************************************
.\"*									*
.\"*	******  - M E   N R O F F / T R O F F   M A C R O S  ******	*
.\"*									*
.\"*	Produced for your edification and enjoyment by:			*
.\"*		Eric Allman						*
.\"*		Electronics Research Laboratory				*
.\"*		U.C. Berkeley.						*
.\"*	current address:						*
.\"*		Britton-Lee, Inc.					*
.\"*		1919 Addison Street Suite 105				*
.\"*		Berkeley, California  94704				*
.\"*									*
.\"*	VERSION 2.31	First Release: 11 Sept 1978			*
.\"*									*
.\"*	Documentation is available.					*
.\"*									*
.\"**********************************************************************
.\"
.\"	Code on .de commands:
.\"		***	a user interface macro.
.\"		&&&	a user interface macro which is redefined
.\"			when used to be the real thing.
.\"		$$$	a macro which may be redefined by the user
.\"			to provide variant functions.
.\"		---	an internal macro.
.\"
.
.do nr need_eo_h 0
.do nr need_eo_tl 0
.do nr need_tl 1
.
.do mso devtag.tmac
.
.if !\n(.g .ig
.de @R			\" --- initialize number register to 0, if undefined
.if !r\\$1 .nr \\$1 0
..
.
.\" --- check whether grohtml needs end of title/heading
.de @html_check_need_title
.do if (\\n[need_eo_tl] == 1) \
\{\
.	do nr need_eo_tl 0
.	do DEVTAG-EO-TL
.\}
.do if (\\n[need_tl] == 1) \
\{\
.	do DEVTAG-TL
.	do nr need_tl 0
.	do nr need_eo_tl 1
.\}
.do if \\n[need_eo_h]>0 .do DEVTAG-EO-H
.do nr need_eo_h 0
..
.
.de @check_need_title
..
.
.ie '\*(.T'html' \
.	do als check_need_title @html_check_need_title
.el \
.	do als check_need_title @check_need_title
.
.@R pf
.if \n(pf .nx
.
.if !\n(.g .ig
.de @S			\" --- initialize string/macro to empty, if undefined
.if !d\\$1 .ds \\$1 \" empty
..
.
.@R @\"			\" debugging level
.
.
.\"		*** INTERNAL GP MACROS ***
.
.
.de @C			\" --- change ev's, taking info with us
.nr _S \\n(.s
.nr _V \\n(.v
.nr _F \\n(.f
.nr _J \\n(.j
.do ds _A \\n[.fam]
.nr _I \\n(.i
.ev \\$1
.ps \\n(_S
.vs \\n(_Vu
.ft \\n(_F
.ad \\n(_J
.do @fam \\*(_A
'in \\n(_Iu
.xl \\n($lu
.lt \\n($lu
.rr _S
.rr _V
.rr _F
.rr _I
.rr _J
.ls 1
'ce 0
..
.
.de @D			\" --- determine display type (Indent, Left, Center)
.ds |p "\\$3
.nr _d 0
.if "\\$2"C" \
.	nr _d 1
.if "\\$2"L" \
.	nr _d 2
.if "\\$2"I" \
.	nr _d 3
.if "\\$2"M" \
.	nr _d 4
.if !\\n(_d \
\{\
.	nr _d \\$1
.	ds |p "\\$2
.\}
.
..
.
.de @z			\" --- end macro
.if \n@>1 .tm >> @z, .z=\\n(.z ?a=\\n(?a
.if !"\\n(.z"" \
\{\
.	tm Line \\n(c. -- Unclosed block, footnote, or other diversion (\\n(.z)
.	di
.	ex
.\}
.if \\n(?a \
.	bp			\" force out final table
.ds bp
.ds @b\"			\" don't start another page
.br
.if \n@>1 .tm << @z
..
.
.
.\"		*** STANDARD HEADERS AND FOOTERS ***
.
.
.ie \n(.g .ds $* \\\\$*
.el .ds $* \\\\$1 \\\\$2 \\\\$3 \\\\$4 \\\\$5 \\\\$6 \\\\$7 \\\\$8 \\\\$9
.
.de he			\" *** define header
.ie !\\n(.$ \
\{\
.	rm |4
.	rm |5
.\}
.el \
\{\
.	ds |4 "\*($*
.	ds |5 "\*($*
.\}
..
.
.de eh			\" *** define even header
.ie !\\n(.$ \
.	rm |4
.el \
.	ds |4 "\*($*
..
.
.de oh			\" *** define odd header
.ie !\\n(.$ \
.	rm |5
.el \
.	ds |5 "\*($*
..
.
.de fo			\" *** define footer
.ie !\\n(.$ \
\{\
.	rm |6
.	rm |7
.\}
.el \
\{\
.	ds |6 "\*($*
.	ds |7 "\*($*
.\}
..
.
.de ef			\" *** define even foot
.ie !\\n(.$ \
.	rm |6
.el \
.	ds |6 "\*($*
..
.
.de of			\" *** define odd footer
.ie !\\n(.$ \
.	rm |7
.el \
.	ds |7 "\*($*
..
.
.de ep			\" *** end page (must always be followed by a .bp)
.if \\n(nl>0 \
\{\
.	wh 0
.	rs
.	@b
.\}
..
.
.
.\"		*** INTERNAL HEADER AND FOOTER MACROS ***
.
.
.de @h			\" --- header
.if \n@>1 .tm >> @h %=\\n% ?a=\\n(?a ?b=\\n(?b ?w=\\n(?w
.if (\\n(.i+\\n(.o)>=\\n(.l \
.	tm Line \\n(c. -- Offset + indent exceeds line length
.\" initialize a pile of junk
.nr ?h \\n(?H			\" transfer "next page" to "this page"
.nr ?H 0
.nr ?c \\n(?C
.nr ?C 0
.rn |4 |0
.rn |5 |1
.rn |6 |2
.rn |7 |3
.nr _w 0			\" reset max footnote width
.nr ?W 0			\" no wide floats this page (yet)
.nr ?I 1
.\" begin actual header stuff
.ev 2
.rs
.if \\n(hm>0 \
.	if !'\*(.T'html' \
.		sp |\\n(hmu	\" move to header position
.@t $h\"			\" output header title
.if \\n(tm<=0 \
.	nr tm \n(.Vu
.if !'\*(.T'html' \
.	sp |\\n(tmu		\" move to top of text
.ev
.mk _k				\" for columned output
.if \\n(?n=1 .nm 1		\" restore line numbering if n1 mode
.nr $c 1			\" set first column
.if \n@>4 .tm -- @h >> .ns nl=\\n(nl %=\\n% _k=\\n(_k tm=\\n(tm
.ie \\n(?s \
\{\
.	nr ?s 0
.	rs
'	@b
.\}
.el \
.	@n\"			\" begin the column
.if \n@>2 .tm << @h
..
.
.de @n			\" --- new column or page
.if \n@>3 .tm >> @n nl=\\n(nl %=\\n% ?f=\\n(?f ?o=\\n(?o
.if \\n(bm<=0 \
.	nr bm \\n(.Vu
.if (\\n(_w<=\\n($l)&(\\n(?W=0) \
\{\
.	nr _b (\\n(ppp*\\n($vu)/200u	\" compute fudge factor (must be < 1P)
.	if \\n(_bu>((\\n(bmu-\\n(fmu-((\\n(tpp*\\n($vu)/100u))/2u) \
.		nr _b (\\n(ppp*\\n($vu)/100u-\n(.Vu
.	nr _b +\\n(bmu
.\}
.nr _B \\n(_bu
.ch @f
.wh -\\n(_bu @f
.nr _b +(\\n(ppp*\\n($vu)/100u \" add 1 paragraph v in case of sweep past
.if \n@>2 .tm @n .p=\\n(.p bm=\\n(bm _b=\\n(_b _B=\\n(_B
.nr ?f 0			\" reset footnote flag
.if \\n(?o \
\{\
.	(f _\"			\" reprocess footnotes which run off page
.	nf
.	|o
.	fi
.	)f
.	rm |o
.\}
.nr ?o 0
.if \\n(?T \
\{\
.	nr _i \\n(.i
.	if \\n(?n \
.		nm \\n(ln
.	in 0
.	|h\"			\" output the table header
.	in \\n(_iu
.	if \\n(?n \
.		nm
.	rr _i
.	mk #T			\" for tbl commands
.	ns
.\}
.if (\\n(?a)&((\\n($c<2):(\\n(?w=0)) \
\{\
.	nr ?a 0			\" output floating keep
.	@k |t
.	if \\n(?w \
.		mk _k		\" don't overstrike wide keeps
.	nr ?w 0
.\}
.os
.$H\"				\" special column header macro
.ns
..
.
.de @f			\" --- footer
.if \n@>1 .tm >> @f %=\\n% nl=\\n(nl ?a=\\n(?a ?b=\\n(?b ?f=\\n(?f
.if \n@>2 .nr VL \\n(.pu-\\n(nlu
.if \n@>2 .tm @f bm=\\n(bm _B=\\n(_B _b=\\n(_b .p-nl=\\n(VL
.ec
.if \\n(?T \
\{\
.	nr T. 1			\" for tbl commands (to output bottom line)
.	T# 1\"			\" output the sides and bottom lines
.	br
.\}
.ev 2
.ce 0
.if \\n(?b \
\{\
.	nr ?b 0
.	@k |b\"			\" output bottom of page tables
.\}
.if \\n(?f \
.	@o\"			\" output footnote if present
.ie \\n($c<\\n($m \
.	@c\"			\" handle new column
.el \
.	@e\"			\" new page
.ev
.if \n@>2 .tm << @f
..
.
.de @o			\" --- output footnote
.nf
.ls 1
.in 0
.if \n@>2 .tm @o last printed text = \\n(nl placing @r trap at -\\n(_B
.wh -\\n(_Bu @r
.if \\n(?n \
.	nm \\n(ln
.|f
.if \\n(?n \
.	nm
.fi
.if \n@>2 .tm @o triggered @r (?o) = \\n(?o
.if \\n(?o \
\{\
.	di			\" just in case triggered @r
.	if \\n(dn=0 \
\{\
.		rm |o
.		nr ?o 0
.	\}
.	nr dn \\n(_D
.	rr _D
.\}
.rm |f
.ch @r
..
.
.de @c			\" --- new column
.if \n@>2 .tm	>> @c %=\\n%
.rs
.sp |\\n(_ku
.@O +\\n($lu+\\n($su
.nr $c +1
.@n
..
.
.de @e			\" --- end page
.if \n@>2 .tm	>> @e
.@O \\n(_ou
.rs
.sp |\\n(.pu-\\n(fmu-((\\n(tpp*\\n($vu)/100u)	\" move to footer position
.@t $f\"			\" output footer title
.nr ?h 0
.bp
..
.
.de @t			\" --- output header or footer title
.if !\\n(?h \
\{\
.	sz \\n(tp\"		\" set header/footer type fonts, etc.
.	@F \\n(tf
.	lt \\n(_Lu		\" make title span entire page
.	if \\n(?n \
.		nm \\n(ln
.	nf
.	\\$1
.	br
.	if \\n(?n \
.		nm
.\}
..
.
.de $h			\" $$$ print header
.ds |z
.if !\\n(?c \
\{\
.	if e .ds |z "\\*(|0
.	if o .ds |z "\\*(|1
.\}
.if !\(ts\\*(|z\(ts\(ts \
'	tl \\*(|z
.rm |z
..
.
.de $f			\" $$$ print footer
.ds |z
.if \\n(?c \
\{\
.	if e .ds |z "\\*(|0
.	if o .ds |z "\\*(|1
.\}
.if \(ts\\*(|z\(ts\(ts \
\{\
.	if e .ds |z "\\*(|2
.	if o .ds |z "\\*(|3
.\}
.if !\(ts\\*(|z\(ts\(ts \
'	tl \\*(|z
.rm |z
..
.
.de @r			\" --- reprocess overflow footnotes
.if \n@>3 .tm		>> @r .z=\\n(.z ?f=\\n(?f ?a=\\n(?a ?b=\\n(?b _b=\\n(_b
.di |o				\" save overflow footnote
.nr ?o 1
.nr _D \\n(dn
.ns
..
.
.
.\"		*** COMMANDS WITH VARIANT DEFINITIONS ***
.
.
.if !'\*(.T'html' .rn bp @b	\" --- begin page
.
.de bp			\" *** begin new page (overrides columns)
.nr $c \\n($m			\" force new page, not new column
.ie \\n(nl>0 \
.	@b \\$1
.el \
\{\
.	if \\n(.$>0 \
.		pn \\$1
.	if \\n(?I \
.		@h\"		\" 'spring' the header trap
.\}
.br
.wh 0 @h			\" reset header
..
.
.rn ll xl		\" *** special line length (local)
.de ll			\" *** line length (global to environments)
.xl \\$1
.lt \\$1
.nr $l \\n(.l
.if (\\n($m<=1):(\\n($l>\\n(_L) \
.	nr _L \\n(.l
..
.
.rn po @O		\" --- local page offset
.
.de po			\" *** page offset
.@O \\$1
.nr _o \\n(.o
..
.
.\" Redefine the fam request to set the family in
.\" environment 2 as well as the current environment.
.if !\n(.g .ig
.do rn fam @fam		\" --- set family in current environment
.do de fam		\" *** set font family in ev 2 and current ev
.do @fam \\$1
.ev 2
.do @fam \\$1
.ev
..
.
.
.\"		*** MISCELLANEOUS ROFF COMMANDS ***
.
.
.de hx			\" *** suppress headers and footers next page
.nr ?H 1
..
.
.de ix			\" *** indent, no break
'in \\$1
..
.
.de bl			\" *** contiguous blank lines
.br
.@s \\$1
.sp \\$1
..
.
.de @s			\" --- diversion-surviving space test
.ne \\$1
.rs
.if !'\\n(.z'' \!.@s \\$1
..
.
.de n1			\" *** line numbering 1
.nm 1
.ll -\w'0000'u
.nr ?n 1
..
.
.de n2			\" *** line numbering 2
.ie \\n(.$ \
\{\
.	ie !`\\$2`c` \
.		po -\w'0000'u
.	el \
.		ll -\w'0000'u
.	ie \\B`\\$1` \
\{\
.		ds |i \\$1
.		ds |j \\$1
.		do substring |i 0 0  \" pick off leading char and rest to check
.		do substring |j 1    \" for +N / -N
.		ie `\\*(|i`+` \
.			nr ln (\\n[_ln])+\\*(|j
.		el \
.			ie `\\*(|i`-` \
.				nr ln (\\n[_ln])-\\*(|j
.			el \
.				nr ln \\$1  \" unsigned N
.		nm \\n(ln
.		nr ?n 2
.		rm |i |j
.\}
.	el \
.		tm Line \\n(.c -- Bad .n2 value
.\}
.el \
\{\
.	nm
.	nr _ln \\n(ln
.	po +\w'0000'u
.	ll \\n($lu
.	nr ?n 0
.	nr ln 0
.\}
..
.
.de pa			\" *** new page
.bp \\$1
..
.
.de ro			\" *** roman page numbers
.af % i
..
.
.de ar			\" *** arabic page numbers
.af % 1
..
.
.de m1			\" *** position one space
.nr _0 \\n(hmu
.nr hm \\$1v
.nr tm +\\n(hmu-\\n(_0u
.rr _0
..
.
.de m2			\" *** position two space
.nr tm \\n(hmu+\\n(tpp+\\$1v
..
.
.de m3			\" *** position three space
.nr bm \\n(fmu+\\n(tpp+\\$1v
..
.
.de m4			\" *** position four space
.nr _0 \\n(fmu
.nr fm \\$1v
.nr bm +\\n(fmu-\\n(_0u
..
.
.de sk			\" *** leave a blank page (next page)
.if \\n(.$>0 \
.	tm Line \\n(c. -- I cannot skip multiple pages
.nr ?s 1
..
.
.
.\"		*** MISCELLANEOUS USER SUPPORT COMMANDS ***
.
.
.if !\n(.g .ig
.de re			\" *** reset tabs (TROFF defines 15 stops default)
.ta T 0.5i
..
.
.if \n(.g .ig
.de re
.ta 0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i
..
.
.de ba			\" *** set base indent
.ie \\n(.$ \
.	nr $i \\$1n
.el \
.	nr $i \\n(siu*\\n($0u
..
.
.de hl			\" *** draw horizontal line
.br
.if '\*(.T'html' \
\{\
.	HR
.	do return
.\}
.ie \n(.g .do nr _I \\n[.in]
.el .nr _I \\n(.i
\l'\\n(.lu-\\n(_Iu'
.sp
..
.
.
.\"		*** PARAGRAPHING ***
.
.
.de pp			\" *** paragraph
.lp \\n(piu
..
.
.de lp			\" *** left aligned paragraph
.@p
.if \\n(.$ \
.	ti +\\$1
.nr $p 0 1
..
.
.de ip			\" *** indented paragraph w/ optional tag
.if (\\n(ii>0)&(\\n(ii<1n) \
.	nr ii \\n(iin
.nr _0 \\n(ii
.if \\n(.$>1 \
.	nr _0 \\$2n
.@p \\n(_0u
.nr _I \\n(.iu
.in 0
.di |i
\&\\$1
.br
.di
.in \\n(_Iu
.ds |j \\*(|i\\
.ie \\w"\\*(|j" \
\{\
.	ti -\\n(_0u
.	ie \\w"\\*(|j">=\\n(_0 \
\{\
.		do DEVTAG-COL 1
\\*(|j
.		do DEVTAG-COL-NEXT 2
.		br
.	\}
.	el \
\{\
.		do DEVTAG-COL 1
\\*(|j\h'|\\n(_0u'\c
.		do DEVTAG-COL 2
.       \}
.\}
.el .do DEVTAG-COL 2
.rr _0
.rm |i |j
..
.
.de np			\" *** numbered paragraph
.\" use string comparison in case user has changed format of $p
.if '\\n($p'-1' \
.	nr $p 0			\" reset number after .bu
.nr $p +1			\" increment paragraph number
.@p \w'\0(000)\0'u
.ti -\w'\0(000)\0'u
\0(\\n($p)\h'|\w'\0(000)\0'u'\c
..
.
.de bu			\" *** bulleted paragraph
.br
.\" use string comparison in case user has changed format of $p
.if '\\n($p'-1' \
.	ns			\" don't space between .bu paragraphs
.nr $p 0-1			\" mark "bulleted paragraph" mode
.@p \w'\0\(bu\0'u
.ti -\w'\0\(bu\0'u
\0\(bu\0\c
..
.
.de @p			\" --- initialize for paragraph
.do check_need_title
.if "\\n(.z"|e" .tm Line \\n(c. -- Unmatched continued equation
.in \\n($iu+\\n(pou
.if \\n(.$ \
.	in +\\$1n
.ce 0
.fi
.@F \\n(pf
.sz \\n(pp
.sp \\n(psu
.ne \\n(.Lv+\\n(.Vu
.ns
..
.
.
.\"		*** SECTION HEADINGS ***
.
.
.de sh			\" *** section heading
.fi
.do check_need_title
.if (\\n(si>0)&(\\n(si<1n) \
.	nr si \\n(sin
.if '\*(.T'html' .nr si 0
.ce 0
.if '\*(.T'html' \
\{\
.	do DEVTAG-SH \\$1
.	do nr need_eo_h 1
.\}
.@d "\\$1" +1 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
.if !"\\$2"_" \
\{\
.	ds |n \&\\$2
.	$p "\\*(|n" "\\*($n" \\n($0
.	$0 "\\*(|n" "\\*($n" \\n($0
.	rm |n
.\}
.nr $p 0 1			\" reset .np count
..
.
.de @d			\" --- change section depth
.if !""\\$1" \
.	nr $0 \\$1
.if \\n($0&(\\n(.$>1) \
.	nr $\\n($0 \\$2
.ds $n \&\"
.ie \\n($0>=1 \
\{\
.	if '\\n($1'0' \
.		nr $1 1
.	if (\\n(.$>=3) .if !"\\$3"-" \
.		nr $1 \\$3
.	as $n \\n($1
.\}
.el \
.	nr $1 0
.ie \\n($0>=2 \
\{\
.	if '\\n($2'0' \
.		nr $2 1
.	if (\\n(.$>=4) .if !"\\$4"-" \
.		nr $2 \\$4
.	as $n .\\n($2
.\}
.el \
.	nr $2 0
.ie \\n($0>=3 \
\{\
.	if '\\n($3'0' \
.		nr $3 1
.	if (\\n(.$>=5) .if !"\\$5"-" \
.		nr $3 \\$5
.	as $n .\\n($3
.\}
.el \
.	nr $3 0
.ie \\n($0>=4 \
\{\
.	if '\\n($4'0' \
.		nr $4 1
.	if (\\n(.$>=6) .if !"\\$6"-" \
.		nr $4 \\$6
.	as $n .\\n($4
.\}
.el \
.	nr $4 0
.ie \\n($0>=5 \
\{\
.	if '\\n($5'0' \
.		nr $5 1
.	if (\\n(.$>=7) .if !"\\$7"-" \
.		nr $5 \\$7
.	as $n .\\n($5
.\}
.el \
.	nr $5 0
.ie \\n($0>=6 \
\{\
.	if '\\n($6'0' \
.		nr $6 1
.	if (\\n(.$>=8) .if !"\\$8"-" \
.		nr $6 \\$8
.	as $n .\\n($6
.\}
.el \
.	nr $6 0
..
.
.de sx			\" *** heading up, no increment (2.1.1 -> 2.1)
.ce 0
.ul 0
.nr _0 \\n($0-1
.if \\n(.$ .nr _0 +1
.if \\n(.$ .nr _0 \\$1
.@d \\n(_0
.rr _0
.$p "" "" \\n($0
.nr $p 0 1			\" reset .np count
..
.
.de uh			\" *** unnumbered section heading
.$p "\\$1"
.$0 "\\$1"
..
.
.de $p			\" $$$ print section heading
.if (\\n(si>0)&(\\n(.$>2) \
.	nr $i \\$3*\\n(si
.in \\n($iu
.ie !"\\$1\\$2"" \
\{\
.	sp \\n(ssu 		\" one of them is non-null
.	ne \\n(.Lv+\\n(.Vu+\\n(psu+((\\n(spp*\\n($vu*\\n(.Lu)/100u)
.	\" exdent if \\$3 > 0
.	ie 0\\$3 \
.		ti -(\\n(siu-\\n(sou)
.	el \
.		ti +\\n(sou
.	@F \\n(sf
.	sz \\n(sp
.	if 0\\$3 \
.		$\\$3
.	if \w"\\$2">0 \\$2.
.	if \w"\\$1">0 \\$1\f1\ \ \&
.\}
.el \
.	sp \\n(psu
.@F \\n(pf
.sz \\n(pp
..
.
.
.\"		*** COLUMNNED OUTPUT ***
.
.
.de 2c			\" *** double columned output
.br
.if \\n($m>1 \
.	1c\"			\" revert to 1c if already 2c
.nr $c 1
.nr $m 2
.if \\n(.$>1 \
.	nr $m \\$2
.if \\n(.$>0 \
.	nr $s \\$1n		\" param 1: column seperation
.nr $l (\\n(.l-((\\n($m-1)*\\n($s))/\\n($m
.xl \\n($lu
.mk _k
.ns
..
.
.de 1c			\" *** single columned output
.br
.nr $c 1
.nr $m 1
.ll \\n(_Lu			\" return to normal output
.sp |\\n(.hu
.@O \\n(_ou
..
.
.de bc			\" *** begin column
.sp 24i
..
.
.
.\"		*** FLOATING TABLES AND NONFLOATING BLOCKS ***
.
.
.de (z			\" *** begin floating keep
.if \n@>4 .tm >> (z, .z=\n(.z
.@D 4 \\$1 \\$2
.@(
..
.
.de )z			\" *** end floating keep
.if \n@>4 .tm >> )z, .z=\n(.z
.sp \\n(zsu
.@)
.if \n@>4 .tm -- )z << @), .z=\n(.z
.rr _0
.if !\\n(?b \
.	nr dn +(\\n(ppp*\\n($vu)/200u+\\n(zsu
.nr dl -\n(.H			\" fudge factor necessary to make it work
.ie ((\\n(dn+\n(.V)>=\\n(.t):(\\n(?a):((\\n(dl>\\n($l)&(\\n($c>1)) \
\{\
.	nr ?a 1
.	if (\\n(dl>\\n($l)&(\\n($m>1) \
.		nr ?w 1		\" mark wider than one column (top)
.	ds |x |t
.\}
.el \
\{\
.	nr ?b 1
.	if (\\n(dl>\\n($l)&(\\n($m>1) \
.		nr ?W 1		\" mark wider than one column (bottom)
.	nr _b +\\n(dnu
.	\" avoid moving @f back past the current position
.	if \\n(.p-\\n(nl-\n(.V<\\n(_b \
.		nr _b \\n(.p-\\n(nl-\n(.V
.	ch @f -\\n(_bu
.	ds |x |b
.\}
.da \\*(|x			\" copy to save macro
.nf
.ls 1
.nr ?k 1
.if \n@>4 .tm -- )z >> \\*(|x
\!.if \\\\n(nl>(\\\\n(tm+2v) .ne \\n(dnu-\\n(zsu
.|k\"				\" and the body
.ec
.if \n@>4 .tm -- )z << \\*(|x, .z=\\n(.z
.nr ?k 0
.rm |k\"			\" remove the temp macro
.da
.in 0
.ls 1
.xl \\n($lu
.ev
.if \n@>4 .tm << )z, .z=\\n(.z
..
.
.de @k			\" --- output floating keep
.if \n@>4 .tm >> @k, $1=\\$1, .z=\\n(.z
.ev 1
.nf
.ls 1
.in 0
.sp \\n(zsu
.if \\n(?n \
.	nm \\n(ln
.\\$1
.if \\n(?n \
.	nm
.ec
.br
.rm \\$1
.ev
..
.
.de (t			\" XXX temp ref to (z
.(z \\$1 \\$2
..
.
.de )t			\" XXX temp ref to )t
.)z \\$1 \\$2
..
.
.de (b			\" *** begin block
.br
.@D 3 \\$1 \\$2
.sp \\n(bsu
.@(
.if '\*(.T'html' .sp \\n(bsu
..
.
.de )b			\" *** end block
.br
.@)
.if (\\n(bt=0):(\\n(.t<\\n(bt) \
.	ne \\n(dnu		\" make it all on one page
.@k |k
.ev                             \" return from display environment
.sp \\n(bsu+\\n(.Lv-1v
..
.
.de @(			\" --- begin keep
.if !"\\n(.z"" .tm Line \\n(c. -- Invalid nested keep \\n(.z
.@M
.di |k
\!'rs
..
.
.de @M			\" --- set modes for display
.nr ?k 1
.@C 1
.@F \\n(df
.if \\n($R .@V
.vs \\n(.sp*\\n($Vu/100u
.nf
.if "\\*(|p"F" \
.	fi			\" set fill mode if "F" parameter
.if \\n(_d=4 \
.	in 0
.if \\n(_d=3 \
\{\
.	in +\\n(biu
.	xl -\\n(biu
.\}
.if \\n(_d=1 \
.	ce 10000
..
.
.de @)			\" --- end keep
.br
.if !"\\n(.z"|k" .tm Line \\n(c. -- Close of a keep which has never been opened
.nr ?k 0
.di
.in 0
.ce 0
..
.
.de (c			\" *** begin block centered text
.br
.if "\\n(.z"|c" .tm Line \\n(c. -- Nested .(c requests
.if \\n(?n .nm
.di |c
..
.
.de )c			\" *** end block centered text
.if !"\\n(.z"|c" .tm Line \\n(c. -- Unmatched .)c
.br				\" force out final line
.di
.if \n@>4 .tm >> .)c .l=\\n(.l .i=\\n(.i $i=\\n($i dl=\\n(dl
.ev 1
.ls 1
.in (\\n(.lu-\\n(.iu-\\n(dlu)/2u
.if \n@>4 .tm -- .)c << .in .l=\\n(.l .i=\\n(.i dl=\\n(dl
.if \\n(?n \
.	nm \\n(ln
.nf
.|c
.ec
.in
.ls
.if \\n(?n \
.	nm
.ev
.rm |c
..
.
.
.\"		*** BLOCK QUOTES (OR WHATEVER) AND LISTS ***
.
.
.de (q			\" *** begin block quote
.br
.@C 1
.fi
.sp \\n(qsu
.in +\\n(qiu
.xl -\\n(qiu
.sz \\n(qp
.if \\n(?n \
.	nm \\n(ln
..
.
.de )q			\" *** end block quote
.br
.if \\n(?n \
.	nm
.ev
.sp \\n(qsu+\\n(.Lv-1v
.nr ?k 0
..
.
.de (l			\" *** begin list
.br
.sp \\n(bsu
.@D 3 \\$1 \\$2
.@M
.if \\n(?n \
.	nm \\n(ln
.if '\*(.T'html' .sp \\n(bsu
..
.
.de )l			\" *** end list
.br
.if \\n(?n \
.	nm
.ev
.sp \\n(bsu+\\n(.Lv-1v
.nr ?k 0
..
.
.
.\"		*** PREPROCESSOR SUPPORT ***
.
.
.\"
.\"	EQN
.\"
.de EQ			\" *** equation start
.do if \\n[need_eo_h]>0 .do DEVTAG-EO-H
.do nr need_eo_h 0
.ec
.if "\*(.T"html" \
\{\
.	do nr e-EQ-ll \\n(.l
.	ll 1000n
.\}
.do HTML-IMAGE
.if !\\n(?e \
\{\
.	if "\\n(.z"|e" .tm Line \\n(c. -- Nested .EQ request
.	@D 1 "\\$1" "\\$2"
.	@C 2
.	di |e
.\}
.ls 1
.in 0
.nf
..
.
.de EN			\" *** equation end
.br
.do HTML-IMAGE-END
.if "\*(.T"html" \
.	do ll \\n[e-EQ-ll]u
.ie "\\$1"C" \
\{\
.	nr ?e 1
.	sp \\n(esu
.\}
.el \
\{\
.	nr ?e 0
.	di
.	if \\n(dn \
.		@q\"		\" actual equation output
.	rm |e
.	ev
.\}
..
.
.de @q			\" --- equation output
.nr _Q \\n(dnu
.ev
.sp \\n(esu			\" output rest of preceding text
.if !"\\n(.z"" \!.ne \\n(_Qu
.ne \\n(_Qu+\n(.Vu		\" keep it on one page
.@C 2\"				\" .ev 2 may be jumbled from header
.if \\n(_d=1 \
.	in (\\n(.lu+\\n($iu-\\n(dlu)/2u
.if \\n(_d=2 \
.	in \\n($iu
.if \\n(_d=3 \
.	in \\n(biu+\\n($iu
.if \\n(_d=4 \
.	in 0
.mk _q
.if \n@>1 .tm --@e: _Q=\\n(_Q _q=\\n(_q nl=\\n(nl |p=\\*(|p
.if !"\\*(|p"" \
\{\
.	rs
.	sp (\\n(_Qu-\\n(.vu)/2u
.	tl """\\*(|p"
.	rt \\n(_qu
.\}
.if \\n(?n \
.	nm \\n(ln
.|e
.if \\n(?n \
.	nm
.sp |\\n(_qu+\\n(_Qu
.sp \\n(esu+\\n(.Lv-1v
.rr _q
.rr _Q
..
.
.\"
.\"	TBL
.\"
.de TS			\" *** table start
.sp \\n(bsu
.if "\*(.T"html" \
\{\
.	do nr e-TS-ll \\n(.l
.	ll 1000n
.\}
.do HTML-IMAGE
.@C 1
.fi				\" drop into fill mode for text boxes
.if "\\$1"H" \
\{\
.	di |h			\" save header part
.	nr ?T 1
.\}
.ls 1
.ch @f -(\\n(_bu+1v)		\" set pseudo-trap for bottom line
.if \\n(.p-\\n(_b-1v<=\\n(nl \
.	ch @f \\n(nlu+\n(.Vu
..
.
.de TH			\" *** end header part of table
.nr T. 0
.T# 0
.if \\n(?n \!.nm
.di
.nr _T \\n(?T
.nr ?T 0
.ne \\n(dnu+1v
.nr ?T \\n(_T
.nr _i \\n(.i
.if \\n(?n .nm \\n(ln
.in 0
.|h\"				\" put in the initial header
.in \\n(_iu
.rr _i
.mk #T
..
.
.de TE			\" *** table end
.nr ?T 0
.ch @f -\\n(_bu			\" reset pseudo-trap
.if \\n(.p-\\n(_b<=\\n(nl \
.	ch @f \\n(nlu+\n(.Vu
.ev
.do HTML-IMAGE-END
.if "\*(.T"html" \
.	do ll \\n[e-TS-ll]u
.sp \\n(bsu+\\n(.Lv-1v
.re
..
.
.de T&
..
.
.\"
.\"	REFER
.\"
.mso refer-me.tmac
.
.\"
.\"	IDEAL
.\"
.de IS			\" *** start ideal picture
.nr g7 \\n(.u
.ls 1
..
.
.de IF
.if \\n(g7 .fi
.ls
..
.
.de IE			\" *** end ideal picture
.if \\n(g7 .fi
.ls
..
.
.\"
.\"	PIC
.\"
.de PS		\" *** start picture: $1=height, $2=width in units or inches
.sp 0.3
.do HTML-IMAGE
.nr g7 \\$2
.in (u;\\n(.l-\\n(g7>?0/2)
.ne \\$1u
.nr g7 \\n(.u
.ls 1
.if \\n(?n \
\{\
.	de PS_nm_check &&        \" define macro to emit .nm at top diversion
.	if \n@>4 .tm -- PS: \\\\$1 \\\\$2 .z=\\\\n(.z PS_nm_cnt=\\\\n[PS_nm_cnt]
.	\"                       \" multiple .PS/.PE in a keep.
.	if `\\\\$2`init` \
.		do nr PS_nm_cnt \\\\n[PS_nm_cnt]+1
.	ie `\\\\n(.z`` \
\{\
.		if `\\\\$1`suspend` \
.			nm
.		if `\\\\$1`resume` \
\{\
.			nm \\\\n(ln
.			do nr PS_nm_cnt \\\\n[PS_nm_cnt]-1
.			do if !\\\\n[PS_nm_cnt] \
\{\
.				do rm PS_nm_check
.				do rr PS_nm_cnt
.\}
.\}
.\}
.el \!.PS_nm_check \\\\$1
.&&
.	mk _q                    \" emit a single numbered line for PS picture
.	rs
\&\ 
.	br
.	rt \\n(_qu
.	PS_nm_check suspend init
.\}
..
.
.de PE			\" *** end picture
.if \\n(?n .PS_nm_check resume
.ls
.in
.if \\n(g7 .fi
.do HTML-IMAGE-END
.sp .6
..
.
.\"
.\"	GREMLIN
.\"
.de GS			\" *** start gremlin picture
.ie '\*(.T'html' \
\{\
.	ie "\\$1"L" .do HTML-IMAGE-LEFT
.	el .ie "\\$1"R" .do HTML-IMAGE-RIGHT
.	el .do HTML-IMAGE
.\}
.el \
\{\
.	nr g7 (\\n(.lu-\\n(g1u)/2u
.	if "\\$1"L" .nr g7 \\n(.iu
.	if "\\$1"R" .nr g7 \\n(.lu-\\n(g1u
.	in \\n(g7u
.	nr g7 \\n(.u
.	ls 1
.	nf
.	ne \\n(g2u
.\}
..
.
.de GE			\" *** end gremlin picture
.ie '\*(.T'html' .do HTML-IMAGE-END
.el \
\{\
.	GF
.	sp .6
.\}
..
.
.de GF			\" *** finish gremlin picture; stay at top
.ls
.in
.if \\n(g7 .fi
..
.
.
.\"		*** FONT AIDS ***
.
.
.de sz			\" *** set point size and vertical spacing
.ps \\$1
.if \\n($r .@v
.vs \\n(.sp*\\n($vu/100u	\" default vs at pointsize + 20%
..
.
.de @v			\" --- possibly set $v from $r
.if (1i>=240u)&(1p<=\\n($r)&(\\n($r<=4p) .nr $v \\n($r00/1p
..
.
.de @V			\" --- possibly set $V from $R
.if (1i>=240u)&(1p<=\\n($R)&(\\n($R<=4p) .nr $V \\n($R00/1p
..
.
.de @E			\" --- store in _F argument to \f for restoring font
.ie \\n(.f<10 \
.	ds _F \\n(.f
.el \
\{\
.	ie \\n(.f<100&\n(.g \
.		ds _F (\\n(.f
.	el \
.		ds _F P
.\}
..
.
.de r			\" *** enter roman font
.do check_need_title
.@E
.ft 1
.if \\n(.$ \&\\$1\f\\*(_F\\$2
.do check_need_title
..
.
.de i			\" *** enter italic
.do check_need_title
.@E
.ft 2
.if \\n(.$ \&\\$1\f\\*(_F\\$2
.do check_need_title
..
.
.de b			\" *** enter boldface
.do check_need_title
.@E
.ft 3
.if \\n(.$ \&\\$1\f\\*(_F\\$2
.do check_need_title
..
.
.de rb			\" *** enter real boldface
.do check_need_title
.@E
.ft 3
.if \\n(.$ \&\\$1\f\\*(_F\\$2
.do check_need_title
..
.
.de bi			\" *** enter bold italic
.do check_need_title
.@E
.ft 4
.if \\n(.$ \&\\$1\f\\*(_F\\$2
.do check_need_title
..
.
.de u			\" *** enter underlined word
\&\\$1\l'|0\(ul'\\$2
..
.
.\" a better version of u
.if !\n(.g .ig
.de u
\Z'\\$1'\v'.25m'\D'l \w'\\$1'u 0'\v'-.25m'\\$2
..
.
.de q			\" *** enter quoted word
\&\\*(lq\\$1\\*(rq\\$2
..
.
.de bx			\" *** enter boxed word
.ie '\*(.T'html' \\$1\\$2
.el \k~\(br\|\\$1\|\(br\l'|\\n~u\(rn'\l'|\\n~u\(ul'\^\\$2
..
.
.de sm			\" *** print in smaller font
\s-1\\$1\\s0\\$2
..
.
.de @F			\" --- change font (0 -> no change)
.nr ~ \\$1
.if \\n~>0 \
.	ft \\n~
.rr ~
..
.
.
.\"		*** FOOTNOTING ***
.
.
.de (f			\" *** begin footnote
.ec
.if "\\n(.z"|f" .tm Line \\n(c. -- Invalid footnote nesting
.ie "\\n(.z"" \
\{\
.	nr _D \\n(dn
.	nr _0 1v+\\n(nlu
.	ev 2
.	nm
.	da |f
.	in 0
.	xl \\n($lu-\\n(fuu
.	@F \\n(ff
.	sz \\n(fp
.	vs \\n(.sp*\\n($Vu/100u
.	if !\\n(?f \
\{\
.		nr _b +1v	\" allow space for $s
.		$s
.	\}
.	br
.	if \\n(.p-\\n(_b-\\n(_0-\\n(.h-1v-\\n(fs<0 \
\{\
.		da\"		\" won't fit on page at all
.		bc
.		if !\\n(?f \
.			rm |f
.		da |f
.\" next five lines could be dropped if headers had their own environment
.		in 0		\" reset everything from .bc
.		xl \\n($lu-\\n(fuu
.		@F \\n(ff
.		sz \\n(fp
.		vs \\n(.sp*\\n($Vu/100u
.		if !\\n(?f \
.			$s
.		br
.	\}
.	rr _0
.	sp \\n(fsu
.	nr ?f 1
.	fi
.	if !"\\$1"_" \
.		ti \\n(fiu
.	if \n@>2 .tm	<< (f $f=\\n($f
.\}
.el \
\{\
.	ev 2
.	nm
.	in 0
.	xl \\n($lu-\\n(fuu
.	@F \\n(ff
.	sz \\n(fp
.	vs \\n(.sp*\\n($Vu/100u
.	fi
\!.(f \\$1
\!.@N
.\}
..
.
.de @N			\" --- set no fill mode in the top-level diversion
.ie "\\n(.z"" .nf
.el \!.@N
..
.
.de )f			\" *** end footnote
.ie "\\n(.z"|f" \
\{\
.	if \\n* \
.		nr $f +1
.	ds * \\*{\\n($f\\*}\k*
.	nr * 0
.	in 0
.	da
.	ev
.	if \\n(_w<\\n(dl \
.		nr _w \\n(dl	\" compute maximum fn width
.	nr _b +\\n(dn
.	ch @f -\\n(_bu
.	if \\n(.p-\\n(_b<=\\n(nl \
.		ch @f \\n(nlu+\n(.Vu
.	nr dn \\n(_D
.	rr _D
.\}
.el \
\{\
.	br
\!.)f
.	ev
.\}
..
.
.@R ff
.if \n(ff<=0 \
.	nr ff 1			\" footnote font: Times Roman
.@R fp
.if \n(fp<=0 \
.	nr fp 8			\" footnote pointsize
.
.de $s			\" $$$ footnote separator
\l'2i'
..
.
.
.\"		*** DELAYED TEXT ***
.
.
.de (d			\" *** begin delayed text
.am |d )d
.sp \\n(bsu
..
.
.de )d			\" *** end delayed text
.if \\n# \
.	nr $d +1
.ds # [\\n($d]\k#
.rr #
..
.
.de pd			\" *** print delayed text
.|d
.rm |d
.nr $d 1 1
.ds # [1]\k#
..
.
.
.\"		*** INDEXES (TABLE OF CONTENTS) ***
.
.
.nr _x 0 1
.do nr _xn 0
.af _x a
.
.de (x			\" *** begin index entry
.if \n@>4 .tm >> (x, .z=\\n(.z
.ds |X x
.if \\n(.$>0 \
.	ds |X \\$1
.ie "\\n(.z"" \
.	nr _z 0
.el \
.	nr _z 1
.@\\n(_z
..
.
.de @0			\" --- finish (x if no current diversion
.am %\\*(|X )x
.sp \\n(xsu
.ti -\\n(piu
..
.
.de @1			\" --- finish (x if current diversion
.if "\\n(_x"z" .nr _x 0
.de =\\n+(_x )x
..
.
.de )x			\" *** end index entry
.if \n@>4 .tm >> )x, .z=\\n(.z
.ie "\\n(.z"" \
\{\
.	ds |x \\n%
.	if \\n(.$>0 \
.		ds |x \\$1
.	if "\\*(|x"_" \
.		ig ..
.	am %\\*(|X ..
.	if \w"\\$2">(\\n(.l-\\n(.i-\\n(.k) \
.		ti +\\n(xuu
\\\\a\\\\t\\$2\\*(|x
...
.	rm |x
.	rm |X
.\}
.el \
\{\
\!.(x \\*(|X
\!\\\\*(=\\n(_x\\\\
\!.)x \\$1 \\$2
\!.rm =\\n(_x
.\}
..
.
.de xp			\" *** print the index
.br
.@C 2
.ls 1
.vs \\n(.sp*\\n($Vu/100u
.fi
.in +\\n(piu
.ds |X x
.if \\n(.$>0 \
.	ds |X \\$1
.xl -(\\n(xuu+\w'...'u)
.di |x
.%\\*(|X
.br
.di
.rm %\\*(|X
.xl \\n($lu
.rm |X
.ev
.nf
.in 0
.ta \\n(.lu-\\n(xuuR \\n(.luR
.|x
.fi
.in
.rm |x
..
.
.
.\"		*** HTML VERSIONS OF .x(, .x), AND .xp ***
.
.
.de (x-html    \" --- create TAG and divert text
.nr _x +1
.do nr _xn +1
.do TAG "_x\\n[_x]
.br
.do di |x\\n[_xn]
.br
..
.
.de )x-html    \" --- end diversion
.br
.di
..
.
.de xp-html    \" --- create list of links
.do nr _xx 1
.br
.do ev xp-html-ev
.sp
.do ULS
.do while \\n[_xx]<=\\n[_xn] \
\{\
.	br
.	do unformat |x\\n[_xx]
.	do di xp-html-div
.	br
.	ll 100i
.	fi
.	do |x\\n[_xx]
.	br
.	di
.	do asciify xp-html-div
.	do rm xp-html-as
.	do as xp-html-as #
.	do as xp-html-as _x\\n[_xx]
.	ll
.	LI
.	do URL \\*[xp-html-as] "\\*[xp-html-div]
.	do rm xp-html-as
.	do nr _xx +1
.\}
.do ULE
.sp
.ev
..
.
.if '\*(.T'html' \
\{\
.	rm (x
.	do als (x (x-html
.	rm )x
.	do als )x )x-html
.	rm xp
.	do als xp xp-html
.\}
.
.
.\"		*** CHAPTERS AND TITLES ***
.
.
.de +c				\" *** begin chapter
.ep\"				\" force out footnotes
.if \\n(?o:\\n(?a \
\{\
.	bp			\" force out a table or more footnote
.	rs
.	ep
.\}
.nr ?C 1
.nr $f 1 1
.ds * \\*{1\\*}\k*
.if \\n(?R \
.	pn 1
.bp
.in \\n($iu			\" reset the indent
.rs
.ie \\n(.$ \
.	$c "\\$1"
.el \
.	sp 3
..
.
.de ++			\" *** declare chapter type
.nr _0 0
.if "\\$1"C" \
.	nr _0 1			\" chapter
.if "\\$1"RC" \
.	nr _0 11		\" renumbered chapter
.if "\\$1"A" \
.	nr _0 2			\" appendix
.if "\\$1"RA" \
.	nr _0 12		\" renumbered appendix
.if "\\$1"P" \
.	nr _0 3			\" preliminary material
.if "\\$1"B" \
.	nr _0 4			\" bibliographic material
.if "\\$1"AB" \
.	nr _0 5			\" abstract
.if \\n(_0=0 \
.	tm Line \\n(c. -- Bad mode to .++
.nr ?R 0
.if \\n(_0>10 \
.\{
.	nr ?R 1
.	nr _0 -10
.\}
.nr ch 0 1
.if (\\n(_0=3):(\\n(_0=5) \
.	pn 1			\" must do before .ep
.if !\\n(_0=\\n(_M .if \\n(_M=3 \
.	pn 1			\" must do before .ep
.ep\"				\" end page for correct page number types
.if \\n(_0=1 \
\{\
.	af ch 1
.	af % 1
.\}
.if \\n(_0=2 \
\{\
.	af ch A
.	af % 1
.\}
.if \\n(_0=3 \
.	af % i
.if \\n(_0=4 \
.	af % 1
.if \\n(_0=5 \
.	af % 1
.if \\n(.$>1 \
.	he \\$2
.nr _M \\n(_0
.rr _0
..
.
.de $c			\" $$$ print chapter title
.sz 12
.ft 3
.ce 1000
.if \\n(_M<3 \
.	nr ch +1
.ie \\n(_M=1 CHAPTER\ \ \\n(ch
.el .if \\n(_M=2 APPENDIX\ \ \\n(ch
.if \w"\\$1" .sp 3-\\n(.L
.if \w"\\$1" \\$1
.if (\\n(_M<3):(\w"\\$1") \
.	sp 4-\\n(.L
.ce 0
.ft
.sz
.ie \\n(_M=1 \
.	$C Chapter \\n(ch "\\$1"
.el .if \\n(_M=2 \
.	$C Appendix \\n(ch "\\$1"
..
.
.de tp			\" *** title page
.hx
.bp
.br
.rs
.pn \\n%
..
.
.\"		*** DATES ***
.if \n(mo=1 .ds mo January
.if \n(mo=2 .ds mo February
.if \n(mo=3 .ds mo March
.if \n(mo=4 .ds mo April
.if \n(mo=5 .ds mo May
.if \n(mo=6 .ds mo June
.if \n(mo=7 .ds mo July
.if \n(mo=8 .ds mo August
.if \n(mo=9 .ds mo September
.if \n(mo=10 .ds mo October
.if \n(mo=11 .ds mo November
.if \n(mo=12 .ds mo December
.if \n(dw=1 .ds dw Sunday
.if \n(dw=2 .ds dw Monday
.if \n(dw=3 .ds dw Tuesday
.if \n(dw=4 .ds dw Wednesday
.if \n(dw=5 .ds dw Thursday
.if \n(dw=6 .ds dw Friday
.if \n(dw=7 .ds dw Saturday
.nr y2 \n(yr%100
.af y2 00
.nr y4 \n(yr+1900
.ds td \*(mo \n(dy, \n(y4
.
.
.\"		*** PARAMETRIC INITIALIZATIONS ***
.
.
.rr x
.nr $v \n(.v00+\n(.sp-1/\n(.sp	\" vs as percentage of ps for .sz request
.nr $V \n($v			\" same for displays & footnotes
.nr hm 4v			\" header margin
.nr tm 7v			\" top margin
.nr bm 6v			\" bottom margin
.nr fm 3v			\" footer margin
.nr tf 3			\" title font: (real) Times Bold
.nr tp 10			\" title point size
.hy 14
.nr bi 4m			\" indent for blocks
.nr pi 5n			\" indent for paragraphs
.nr pf 1			\" normal text font
.nr pp 10			\" normal text point size
.nr qi 4n			\" indent for quotes
.nr qp -1			\" down one point
.nr ii 5n			\" indent for .ip's and .np's
.nr $m 1			\" max number of columns
.nr $s 4n			\" column separation
.nr sf 3			\" section font -- Times Bold
.nr sp 10			\" section title pointsize
.nr ss 12p			\" section prespacing
.nr si 0			\" section indent
.
.
.\"		*** OTHER INITIALIZATION ***
.
.
.\" GNU pic sets this register to 1, to indicate that \x should not be used.
.@R 0x
.ds { \v'-0.4m'\x'\\n(0x=0*-0.2m'\s-3
.ds } \s0\v'0.4m'
.\" for compatibility with traditional -me
.\" (the first will work only in compatibility mode)
.ds [ \*{
.ds ] \*}
.ds < \v'0.4m'\x'\\n(0x=0*0.2m'\s-3
.ds > \s0\v'-0.4m'
.ds - \(em
.\" Avoid warnings from groff -ww.
.@S |0
.@S |1
.@S |2
.@S |3
.@S $H
.@S $0
.@S $1
.@S $2
.@S $3
.@S $4
.@S $5
.@S $6
.@S $7
.@S $8
.@S $9
.@S ..
.
.@R po\"			\" simulated page offset
.@R $0\"			\" section depth
.@R $i\"			\" paragraph base indent
.@R $p\"			\" numbered paragraph number
.@R $r\"			\" ratio of vs to ps (may override $v)
.@R $R\"			\" same for displays (may override $V)
.@R df\"			\" display font: same as surrounding text
.@R so\"			\" additional section title offset
.@R fu\"			\" footnote undent
.@R bt\"			\" block keep threshold
.@R *\"				\" has \** been referenced?
.@R ?a\"			\" pending floating keep at page top?
.@R ?b\"			\" pending floating keep at page bottom?
.@R ?C\"			\" at chapter header?
.@R ?e\"			\" in equation?
.@R ?H\"			\" suppress headers and footers next page?
.@R ?I\"			\" has the header trap been sprung?
.@R ?n\"			\" n1 mode?
.@R ?o\"			\" footnote overflow?
.@R ?R\"			\" renumbered chapter?
.@R ?s\"			\" skip next page?
.@R ?T\"			\" inside .TS H?
.@R ?W\"			\" wide floating keep at page bottom?
.@R ?w\"			\" wide floating keep at page top?
.
.nr fi 0.3i
.nr _o \n(.o
.nr $b 3			\" bold
.nr ps 0.35v
.if \n(ps<\n(.V .nr ps \n(.V
.nr bs \n(ps			\" block pre/post spacing
.nr qs \n(ps			\" quote pre/post spacing
.nr zs 1v			\" float-block pre/postspacing
.nr xs 0.2v			\" index prespacing
.nr xu 0.5i			\" index undent
.nr fs 0.2v			\" footnote prespacing
.nr es 0.5v			\" equation pre/postspacing
.if \n(es<\n(.V .nr es \n(.V
.wh 0 @h			\" set header
.nr $l \n(.lu			\" line length
.nr _L \n(.lu			\" line length of page
.nr $c 1			\" current column number
.nr $f 1 1			\" footnote number
.ds * \*{1\*}\k*\"		\" footnote "name"
.nr $d 1 1			\" delayed text number
.ds # [1]\k#\"			\" delayed text "name"
.nr _M 1			\" chapter mode is chapter
.ds lq \(lq\"			\" left quote
.ds rq \(rq\"			\" right quote
.em @z
.
.
.\"		*** FOREIGN LETTERS AND SPECIAL CHARACTERS ***
.
.
.ds #h ((1u-(\\\\n(.fu%2u))*0.13m)
.ds #v 0.6m
.
.\"			\" accents
.ds ' \k_\h'-(\\n(.wu*8/10-\*(#h)'\(aa\h'|\\n_u'
.ds ` \k_\h'-(\\n(.wu*7/10-\*(#h)'\(ga\h'|\\n_u'
.
.\"			\" umlaut
.ds : \k_\h'-(\\n(.wu*8/10-\*(#h+0.1m)'\v'-\*(#v'\z.\h'0.2m'.\h'|\\n_u'\v'\*(#v'
.
.\"			\" circumflex and tilde
.ds ^ \k_\h'-(\\n(.wu-\*(#h-0.05m)'^\h'|\\n_u'
.ds ~ \k_\h'-(\\n(.wu-\*(#h-0.05m)'~\h'|\\n_u'
.
.\"			\" cedilla and czech
.ds , \k_\h'-(\\n(.wu)',\h'|\\n_u'
.ds v \k_\h'-(\\n(.wu*9/10-\*(#h)'\v'-\*(#v'\s-4v\s0\v'\*(#v'\h'|\\n_u'
.
.\"			\" Norwegian A or angstrom
.ds o \k_\h'-(\\n(.wu+\w'\(de'u-\*(#h)/2u'\v'-0.4n'\z\(de\v'0.4n'\h'|\\n_u'
.
.\"			\" there exists, for all
.ds qe \s-2\v'0.45m'\z\(em\v'-0.625m'\z\(em\v'-0.625m'\(em\v'0.8m'\s0\h'-0.1m'\v'-0.05m'\(br\v'0.05m'\h'0.1m'
.ds qa \z\e\h'0.35m'\z\(sl\h'-0.33m'\v'-0.3m'\s-4\(em\s0\v'0.3m'\h'0.15m'
.rm #h #v
.ll 6.0i
.lt 6.0i
.
.de @U
.tm The \\$1 macro has been removed from this version of the -me macros.
..
.
.de lo
.@U lo
..
.
.de th
.@U th
..
.
.de ac
.@U ac
..
.
.\" EOF
