Commit | Line | Data |
---|---|---|
84f25a89 | 1 | .nr _0 \n(c. |
6f6d9ee7 | 2 | .\" @(#)footnote.me 2.4 %G% |
2a8c2746 | 3 | .\" %beginstrip% |
84f25a89 EA |
4 | .de (f \" *** begin footnote |
5 | .ec | |
6 | .if "\\n(.z"|f" .tm Line \\n(c. -- Illegal footnote nesting | |
e57dda7f | 7 | .ie "\\n(.z"" \ |
84f25a89 | 8 | \{\ |
e57dda7f EA |
9 | . nr _D \\n(dn |
10 | . nr _0 1v+\\n(nlu | |
11 | . ev 2 | |
84f25a89 | 12 | . da |f |
e57dda7f | 13 | . in 0 |
84f25a89 EA |
14 | . xl \\n($lu-\\n(fuu |
15 | . @F \\n(ff | |
16 | . sz \\n(fpu | |
17 | . vs \\n(.su*\\n($Ru | |
18 | . if !\\n(?f \ | |
e57dda7f EA |
19 | \{\ |
20 | . nr _b +2u*\n(.Vu \" fudge factor | |
84f25a89 | 21 | . $s |
e57dda7f | 22 | . \} |
84f25a89 | 23 | . br |
e57dda7f EA |
24 | . if \\n(.p-\\n(_b-\\n(_0-\\n(.h-1v-\\n(fs<0 \ |
25 | \{\ | |
26 | . da\" \" won't fit on page at all | |
27 | . bc | |
28 | . if !\\n(?f \ | |
29 | . rm |f | |
30 | . da |f | |
31 | .\" next five lines could be dropped if headers had their own environment | |
32 | . in 0 \" reset everything from .bc | |
33 | . xl \\n($lu-\\n(fuu | |
34 | . @F \\n(ff | |
35 | . sz \\n(fpu | |
36 | . vs \\n(.su*\\n($Ru | |
37 | . if !\\n(?f \ | |
38 | . $s | |
39 | . br | |
40 | . \} | |
41 | . rr _0 | |
42 | . sp \\n(fsu | |
43 | . nr ?f 1 | |
44 | . fi | |
45 | . if !"\\$1"_" \ | |
46 | . ti \\n(fiu | |
47 | . if \n@>2 .tm << (f $f=\\n($f | |
84f25a89 | 48 | .\} |
6f6d9ee7 EA |
49 | .el \ |
50 | \{\ | |
51 | . ev 2 | |
52 | \!.(f \\$1 | |
53 | .\} | |
84f25a89 EA |
54 | .. |
55 | .de )f \" *** end footnote | |
70c41273 | 56 | .ie "\\n(.z"|f" \ |
e57dda7f EA |
57 | \{\ |
58 | . if \\n* \ | |
59 | . nr $f +1 | |
60 | . ds * \\*[\\n($f\\*]\k* | |
61 | . rr * | |
62 | . in 0 | |
63 | . da | |
64 | . ev | |
65 | . if \\n(_w<\\n(dl \ | |
66 | . nr _w \\n(dl \" compute maximum fn width | |
67 | . nr _b +\\n(dn | |
68 | . ch @f -\\n(_bu | |
69 | . if \\n(.p-\\n(_b<=\\n(nl \ | |
70 | . ch @f \\n(nlu+\n(.Vu | |
71 | . nr dn _D | |
72 | . rr _D | |
73 | .\} | |
6f6d9ee7 EA |
74 | .el \ |
75 | \{\ | |
76 | . br | |
77 | \!.)f | |
78 | . ev | |
79 | .\} | |
84f25a89 EA |
80 | .. |
81 | .if \n(ff<=0 \ | |
82 | . nr ff 1 \" footnote font: Times Roman | |
83 | .if \n(fp<=0 \ | |
84 | . nr fp 8 \" footnote pointsize | |
84f25a89 | 85 | .nr c. \n(_0 |