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 >
Text File  |  1980-02-17  |  983b  |  66 lines
  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
  66.