BSD 4 release

[unix-history] / usr / lib / me / src / eqn.me

diff --git a/usr/lib/me/src/eqn.me b/usr/lib/me/src/eqn.me
index 0794e2c..5fcb3c3 100644 (file)
--- a/usr/lib/me/src/eqn.me
+++ b/usr/lib/me/src/eqn.me
@@ -1,6 +1,7 @@
 .nr _0 \n(c.
 .nr _0 \n(c.

-.\" This version has had comments stripped; an unstripped version is available.
-.de EQ
+.\"    @(#)eqn.me      2.1     8/18/80
+.\"    %beginstrip%
+.de EQ                 \" *** equation start

 .ec
 .if !\\n(?e \
 \{\
 .ec
 .if !\\n(?e \
 \{\


@@ -13,7 +14,7 @@
 .in 0
 .nf
 ..
 .in 0
 .nf
 ..

-.de EN
+.de EN                 \" *** equation end

 .br
 .ie "\\$1"C" \
 \{\
 .br
 .ie "\\$1"C" \
 \{\


@@ -25,7 +26,7 @@
 .      nr ?e 0
 .      di
 .      if \\n(dn \
 .      nr ?e 0
 .      di
 .      if \\n(dn \

-.              @q
+.              @q              \" actual equation output

 .      rm |e
 .      rm 10
 .      rm 11
 .      rm |e
 .      rm 10
 .      rm 11


@@ -44,11 +45,11 @@
 .      ev
 .\}
 ..
 .      ev
 .\}
 ..

-.de @q
+.de @q                 \" --- equation output

 .nr _Q \\n(dnu
 .ev
 .nr _Q \\n(dnu
 .ev

-.sp \\n(esu
-.@C 2
+.sp \\n(esu                    \" output rest of preceeding text
+.@C 2                          \" .ev 2 may be jumbled from header

 .ie \\n(_d=1 \
 .      in (\\n(.lu+\\n($iu-\\n(dlu)/2u
 .el .ie \\n(_d=2 \
 .ie \\n(_d=1 \
 .      in (\\n(.lu+\\n($iu-\\n(dlu)/2u
 .el .ie \\n(_d=2 \


@@ -58,8 +59,9 @@
 .el .if \\n(_d=4 \
 .      in 0
 .if !"\\n(.z"" \!.ne \\n(_Qu
 .el .if \\n(_d=4 \
 .      in 0
 .if !"\\n(.z"" \!.ne \\n(_Qu

-.ne \\n(_Qu+\n(.Vu
+.ne \\n(_Qu+\n(.Vu             \" keep it on one page

 .mk _q
 .mk _q

+.if \n@>1 .tm --@e: _Q=\\n(_Q _q=\\n(_q nl=\\n(nl |p=\\*(|p

 .if !"\\*(|p"" \
 \{\
 .      rs
 .if !"\\*(|p"" \
 \{\
 .      rs