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 / eqn.me < prev    next >
Text File  |  1980-02-17  |  1KB  |  78 lines
  1. .nr _0 \n(c.
  2. .de EQ            \" *** equation start
  3. .ec
  4. .if !\\n(?e \
  5. \{\
  6. .    if "\\n(.z"|e" .tm Line \\n(c. -- Nested .EQ request
  7. .    @D 1 "\\$1" "\\$2"
  8. .    @C 2
  9. .    di |e
  10. .\}
  11. .ls 1
  12. .in 0
  13. .nf
  14. ..
  15. .de EN            \" *** equation end
  16. .br
  17. .ie "\\$1"C" \
  18. \{\
  19. .    nr ?e 1
  20. .    sp \\n(esu
  21. .\}
  22. .el \
  23. \{\
  24. .    nr ?e 0
  25. .    di
  26. .    if \\n(dn \
  27. .        @q        \" actual equation output
  28. .    rm |e
  29. .    rm 10
  30. .    rm 11
  31. .    rm 12
  32. .    rm 13
  33. .    rm 14
  34. .    rm 15
  35. .    rm 16
  36. .    rm 17
  37. .    rm 18
  38. .    rm 19
  39. .    rm 20
  40. .    rm 21
  41. .    rm 22
  42. .    rm 23
  43. .    ev
  44. .\}
  45. ..
  46. .de @q            \" --- equation output
  47. .nr _Q \\n(dnu
  48. .ev
  49. .br                \" output rest of preceeding text
  50. .ev 2
  51. .sp \\n(esu
  52. .ie \\n(_d=1 \
  53. .    in (\\n(.lu+\\n($iu-\\n(dlu)/2u
  54. .el .ie \\n(_d=2 \
  55. .    in \\n($iu
  56. .el .ie \\n(_d=3 \
  57. .    in \\n(biu+\\n($iu
  58. .el .if \\n(_d=4 \
  59. .    in 0
  60. .if !"\\n(.z"" \!.ne \\n(_Qu
  61. .ne \\n(_Qu+\n(.Vu        \" keep it on one page
  62. .mk _q
  63. .if \n@>1 .tm --@e: _Q=\\n(_Q _q=\\n(_q nl=\\n(nl |p=\\*(|p
  64. .if !"\\*(|p"" \
  65. \{\
  66. .    rs
  67. .    sp (\\n(_Qu-\\n(.vu)/2u
  68. .    tl """\\*(|p"
  69. .    rt \\n(_qu
  70. .\}
  71. .|e
  72. .sp |\\n(_qu+\\n(_Qu
  73. .sp \\n(esu+\\n(.Lv-1v
  74. .rr _q
  75. .rr _Q
  76. ..
  77. .nr c. \n(_0
  78.