home *** CD-ROM | disk | FTP | other *** search
/ OpenStep 4.0 (User) / OS_user_4.0.iso / usr / lib / me / eqn.me < prev    next >
Encoding:
Text File  |  1996-04-20  |  906 b   |  78 lines
  1. .nr _0 \n(c.
  2. .\"    @(#)eqn.me    2.1    8/18/80
  3. .\" This version has had comments stripped; an unstripped version is available.
  4. .de EQ
  5. .ec
  6. .if !\\n(?e \
  7. \{\
  8. .    if "\\n(.z"|e" .tm Line \\n(c. -- Nested .EQ request
  9. .    @D 1 "\\$1" "\\$2"
  10. .    @C 2
  11. .    di |e
  12. .\}
  13. .ls 1
  14. .in 0
  15. .nf
  16. ..
  17. .de EN
  18. .br
  19. .ie "\\$1"C" \
  20. \{\
  21. .    nr ?e 1
  22. .    sp \\n(esu
  23. .\}
  24. .el \
  25. \{\
  26. .    nr ?e 0
  27. .    di
  28. .    if \\n(dn \
  29. .        @q
  30. .    rm |e
  31. .    rm 10
  32. .    rm 11
  33. .    rm 12
  34. .    rm 13
  35. .    rm 14
  36. .    rm 15
  37. .    rm 16
  38. .    rm 17
  39. .    rm 18
  40. .    rm 19
  41. .    rm 20
  42. .    rm 21
  43. .    rm 22
  44. .    rm 23
  45. .    ev
  46. .\}
  47. ..
  48. .de @q
  49. .nr _Q \\n(dnu
  50. .ev
  51. .sp \\n(esu
  52. .@C 2
  53. .ie \\n(_d=1 \
  54. .    in (\\n(.lu+\\n($iu-\\n(dlu)/2u
  55. .el .ie \\n(_d=2 \
  56. .    in \\n($iu
  57. .el .ie \\n(_d=3 \
  58. .    in \\n(biu+\\n($iu
  59. .el .if \\n(_d=4 \
  60. .    in 0
  61. .if !"\\n(.z"" \!.ne \\n(_Qu
  62. .ne \\n(_Qu+\n(.Vu
  63. .mk _q
  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.