tfloat.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
       ---
       tfloat.me (759B)
       ---
            1 .nr _0 \n(c.
            2 .\"        @(#)float.me        2.1        8/18/80
            3 .\" This version has had comments stripped; an unstripped version is available.
            4 .de (z
            5 .@D 4 \\$1 \\$2
            6 .@(
            7 .nr ?T 0
            8 ..
            9 .de )z
           10 .sp \\n(zsu
           11 .@)
           12 .rr _0
           13 .if !\\n(?b \
           14 .        nr dn +(\\n(ppu*\\n($ru)/2u+\\n(zsu
           15 .nr dl -\n(.H
           16 .ie ((\\n(dn+\n(.V)>=\\n(.t):(\\n(?a):((\\n(dl>\\n($l)&(\\n($c>1)) \
           17 \{\
           18 .        nr ?a 1
           19 .        if (\\n(dl>\\n($l)&(\\n($m>1) \
           20 .                nr ?w 1
           21 .        ds |x |t
           22 .\}
           23 .el \
           24 \{\
           25 .        nr ?b 1
           26 .        if (\\n(dl>\\n($l)&(\\n($m>1) \
           27 .                nr ?W 1
           28 .        nr _b +\\n(dnu
           29 .        ch @f -\\n(_bu
           30 .        ds |x |b
           31 .\}
           32 .da \\*(|x
           33 .nf
           34 .ls 1
           35 .nr ?k 1
           36 \!.if \\\\n(nl>(\\\\n(tm+2v) .ne \\n(dnu-\\n(zsu
           37 .eo
           38 .cc @
           39 @|k
           40 @cc
           41 .ec
           42 .nr ?k 0
           43 .rm |k
           44 .da
           45 .in 0
           46 .ls 1
           47 .xl \\n($lu
           48 .ev
           49 ..
           50 .de @k
           51 .ev 1
           52 .nf
           53 .ls 1
           54 .in 0
           55 .sp \\n(zsu
           56 .\\$1
           57 .ec
           58 .br
           59 .rm \\$1
           60 .ev
           61 .nr ?T 0
           62 ..
           63 .nr c. \n(_0