base version

[unix-history] / usr / src / share / me / footnote.me

.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
.da |f
.in 0
.xl \\n($lu-\\n(fuu
.@F \\n(ff
.sz \\n(fpu
.vs \\n(.su*\\n($Ru
.if !\\n(?f \
\{\
.       nr _b +2u*\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
.       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(fpu
.       vs \\n(.su*\\n($Ru
.       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
..
.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