home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
minnie.tuhs.org
/
unixen.tar
/
unixen
/
PDP-11
/
Distributions
/
ucb
/
spencer_2bsd.tar.gz
/
2bsd.tar
/
src
/
me
/
footnote.me
< prev
next >
Wrap
Text File
|
1980-02-17
|
983b
|
66 lines
.nr _0 \n(c.
.de (f \" *** begin footnote
.ec
.if "\\n(.z"|f" .tm Line \\n(c. -- Illegal footnote nesting
.nr _D \\n(dn
.nr _0 1v+\\n(nlu
.ev 2
.in 0
.xl \\n($lu-\\n(fuu
.@F \\n(ff
.sz \\n(fpu
.vs \\n(.su*\\n($Ru
.da |f
.if !\\n(?f \
\{\
. nr _b +\n(.Vu \" fudge factor
. $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
. in 0
. da |f
. if !\\n(?f \
. $s
. br
.\}
.rr _0
.sp \\n(fsu
.nr ?f 1
.fi
.ti \\n(fiu
.if \n@>2 .tm << (f $f=\\n($f
..
.de )f \" *** end footnote
.if \\n* \
. nr $f +1
.ds * \\*[\\n($f\\*]\k*
.rr *
.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 _D
.rr _D
..
.if \n(ff<=0 \
. nr ff 1 \" footnote font: Times Roman
.if \n(fp<=0 \
. nr fp 8 \" footnote pointsize
.if \n(fi<=0 \
\{\
. if n .nr fi 3n \" footnote indent
. if t .nr fi 0.3i
.\}
.nr c. \n(_0