diff options
Diffstat (limited to 'tmac/me/eqn.me')
| -rw-r--r-- | tmac/me/eqn.me | 77 |
1 files changed, 77 insertions, 0 deletions
diff --git a/tmac/me/eqn.me b/tmac/me/eqn.me new file mode 100644 index 00000000..28b689ee --- /dev/null +++ b/tmac/me/eqn.me @@ -0,0 +1,77 @@ +.nr _0 \n(c. +.\" @(#)eqn.me 2.1 8/18/80 +.\" This version has had comments stripped; an unstripped version is available. +.de EQ +.ec +.if !\\n(?e \ +\{\ +. if "\\n(.z"|e" .tm Line \\n(c. -- Nested .EQ request +. @D 1 "\\$1" "\\$2" +. @C 2 +. di |e +.\} +.ls 1 +.in 0 +.nf +.. +.de EN +.br +.ie "\\$1"C" \ +\{\ +. nr ?e 1 +. sp \\n(esu +.\} +.el \ +\{\ +. nr ?e 0 +. di +. if \\n(dn \ +. @q +. rm |e +. rm 10 +. rm 11 +. rm 12 +. rm 13 +. rm 14 +. rm 15 +. rm 16 +. rm 17 +. rm 18 +. rm 19 +. rm 20 +. rm 21 +. rm 22 +. rm 23 +. ev +.\} +.. +.de @q +.nr _Q \\n(dnu +.ev +.sp \\n(esu +.@C 2 +.ie \\n(_d=1 \ +. in (\\n(.lu+\\n($iu-\\n(dlu)/2u +.el .ie \\n(_d=2 \ +. in \\n($iu +.el .ie \\n(_d=3 \ +. in \\n(biu+\\n($iu +.el .if \\n(_d=4 \ +. in 0 +.if !"\\n(.z"" \!.ne \\n(_Qu +.ne \\n(_Qu+\n(.Vu +.mk _q +.if !"\\*(|p"" \ +\{\ +. rs +. sp (\\n(_Qu-\\n(.vu)/2u +. tl """\\*(|p" +. rt \\n(_qu +.\} +.|e +.sp |\\n(_qu+\\n(_Qu +.sp \\n(esu+\\n(.Lv-1v +.rr _q +.rr _Q +.. +.nr c. \n(_0 |