9base

revived minimalist port of Plan 9 userland to Unix
git clone git://git.suckless.org/9base
Log | Files | Refs | README | LICENSE

float.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