Commit | Line | Data |
---|---|---|
7230f24c EA |
1 | .nr _0 \n(c. |
2 | .de (f \" *** begin footnote | |
3 | .ec | |
4 | .if "\\n(.z"|f" .tm Line \\n(c. -- Illegal footnote nesting | |
5 | .nr _D \\n(dn | |
6 | .nr _0 1v+\\n(nlu | |
7 | .ev 2 | |
8 | .in 0 | |
9 | .xl \\n($lu-\\n(fuu | |
10 | .@F \\n(ff | |
11 | .sz \\n(fpu | |
12 | .vs \\n(.su*\\n($Ru | |
13 | .da |f | |
14 | .if !\\n(?f \ | |
15 | \{\ | |
16 | . nr _b +\n(.Vu \" fudge factor | |
17 | . $s | |
18 | .\} | |
19 | .br | |
20 | .if \\n(.p-\\n(_b-\\n(_0-\\n(.h-1v-\\n(fs<0 \ | |
21 | \{\ | |
22 | . da\" \" won't fit on page at all | |
23 | . bc | |
24 | . if !\\n(?f \ | |
25 | . rm |f | |
26 | . in 0 | |
27 | . da |f | |
28 | . if !\\n(?f \ | |
29 | . $s | |
30 | . br | |
31 | .\} | |
32 | .rr _0 | |
33 | .sp \\n(fsu | |
34 | .nr ?f 1 | |
35 | .fi | |
36 | .ti \\n(fiu | |
37 | .if \n@>2 .tm << (f $f=\\n($f | |
38 | .. | |
39 | .de )f \" *** end footnote | |
40 | .if \\n* \ | |
41 | . nr $f +1 | |
42 | .ds * \\*[\\n($f\\*]\k* | |
43 | .rr * | |
44 | .in 0 | |
45 | .da | |
46 | .ev | |
47 | .if \\n(_w<\\n(dl \ | |
48 | . nr _w \\n(dl \" compute maximum fn width | |
49 | .nr _b +\\n(dn | |
50 | .ch @f -\\n(_bu | |
51 | .if \\n(.p-\\n(_b<=\\n(nl \ | |
52 | . ch @f \\n(nlu+\n(.Vu | |
53 | .nr dn _D | |
54 | .rr _D | |
55 | .. | |
56 | .if \n(ff<=0 \ | |
57 | . nr ff 1 \" footnote font: Times Roman | |
58 | .if \n(fp<=0 \ | |
59 | . nr fp 8 \" footnote pointsize | |
60 | .if \n(fi<=0 \ | |
61 | \{\ | |
62 | . if n .nr fi 3n \" footnote indent | |
63 | . if t .nr fi 0.3i | |
64 | .\} | |
65 | .nr c. \n(_0 |