Return to eqn.me CVS log

Up to [CSRG BSD Unix] / 43BSD / usr.lib / me

Annotation of 43BSD/usr.lib/me/eqn.me, revision 1.1.1.1

1.1       root        1: .nr _0 \n(c.
                      2: .\"    @(#)eqn.me      2.1     8/18/80
                      3: .\"    %beginstrip%
                      4: .de EQ                 \" *** equation start
                      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                 \" *** equation end
                     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              \" actual equation output
                     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                 \" --- equation output
                     49: .nr _Q \\n(dnu
                     50: .ev
                     51: .sp \\n(esu                    \" output rest of preceeding text
                     52: .@C 2                          \" .ev 2 may be jumbled from header
                     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             \" keep it on one page
                     63: .mk _q
                     64: .if \n@>1 .tm --@e: _Q=\\n(_Q _q=\\n(_q nl=\\n(nl |p=\\*(|p
                     65: .if !"\\*(|p"" \
                     66: \{\
                     67: .      rs
                     68: .      sp (\\n(_Qu-\\n(.vu)/2u
                     69: .      tl """\\*(|p"
                     70: .      rt \\n(_qu
                     71: .\}
                     72: .|e
                     73: .sp |\\n(_qu+\\n(_Qu
                     74: .sp \\n(esu+\\n(.Lv-1v
                     75: .rr _q
                     76: .rr _Q
                     77: ..
                     78: .nr c. \n(_0

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.