Return to eqn.me CVS log

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

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

1.1       root        1: .nr _0 \n(c.
                      2: .\"    @(#)eqn.me      2.3 (Berkeley) 5/21/88
                      3: .\"
                      4: .\" Copyright (c) 1988 Regents of the University of California.
                      5: .\" All rights reserved.
                      6: .\"
                      7: .\" Redistribution and use in source and binary forms are permitted
                      8: .\" provided that this notice is preserved and that due credit is given
                      9: .\" to the University of California at Berkeley. The name of the University
                     10: .\" may not be used to endorse or promote products derived from this
                     11: .\" software without specific prior written permission. This software
                     12: .\" is provided ``as is'' without express or implied warranty.
                     13: .\"    %beginstrip%
                     14: .\"
                     15: .de EQ                 \" *** equation start
                     16: .ec
                     17: .if !\\n(?e \
                     18: \{\
                     19: .      if "\\n(.z"|e" .tm Line \\n(c. -- Nested .EQ request
                     20: .      @D 1 "\\$1" "\\$2"
                     21: .      @C 2
                     22: .      di |e
                     23: .\}
                     24: .ls 1
                     25: .in 0
                     26: .nf
                     27: ..
                     28: .de EN                 \" *** equation end
                     29: .br
                     30: .ie "\\$1"C" \
                     31: \{\
                     32: .      nr ?e 1
                     33: .      sp \\n(esu
                     34: .\}
                     35: .el \
                     36: \{\
                     37: .      nr ?e 0
                     38: .      di
                     39: .      if \\n(dn \
                     40: .              @q              \" actual equation output
                     41: .      rm |e
                     42: .      rm 10
                     43: .      rm 11
                     44: .      rm 12
                     45: .      rm 13
                     46: .      rm 14
                     47: .      rm 15
                     48: .      rm 16
                     49: .      rm 17
                     50: .      rm 18
                     51: .      rm 19
                     52: .      rm 20
                     53: .      rm 21
                     54: .      rm 22
                     55: .      rm 23
                     56: .      ev
                     57: .\}
                     58: ..
                     59: .de @q                 \" --- equation output
                     60: .nr _Q \\n(dnu
                     61: .ev
                     62: .sp \\n(esu                    \" output rest of preceeding text
                     63: .@C 2                          \" .ev 2 may be jumbled from header
                     64: .ie \\n(_d=1 \
                     65: .      in (\\n(.lu+\\n($iu-\\n(dlu)/2u
                     66: .el .ie \\n(_d=2 \
                     67: .      in \\n($iu
                     68: .el .ie \\n(_d=3 \
                     69: .      in \\n(biu+\\n($iu
                     70: .el .if \\n(_d=4 \
                     71: .      in 0
                     72: .if !"\\n(.z"" \!.ne \\n(_Qu
                     73: .ne \\n(_Qu+\n(.Vu             \" keep it on one page
                     74: .mk _q
                     75: .if \n@>1 .tm --@e: _Q=\\n(_Q _q=\\n(_q nl=\\n(nl |p=\\*(|p
                     76: .if !"\\*(|p"" \
                     77: \{\
                     78: .      rs
                     79: .      sp (\\n(_Qu-\\n(.vu)/2u
                     80: .      tl """\\*(|p"
                     81: .      rt \\n(_qu
                     82: .\}
                     83: .|e
                     84: .sp |\\n(_qu+\\n(_Qu
                     85: .sp \\n(esu+\\n(.Lv-1v
                     86: .rr _q
                     87: .rr _Q
                     88: ..
                     89: .nr c. \n(_0

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