teqn.me - plan9port - [fork] Plan 9 from user space
 (HTM) git clone git://src.adamsgaard.dk/plan9port
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) README
 (DIR) LICENSE
       ---
       teqn.me (906B)
       ---
            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