| .nr _0 \n(c. |
| .\" @(#)float.me 2.1 8/18/80 |
| .\" This version has had comments stripped; an unstripped version is available. |
| .de (z |
| .@D 4 \\$1 \\$2 |
| .@( |
| .nr ?T 0 |
| .. |
| .de )z |
| .sp \\n(zsu |
| .@) |
| .rr _0 |
| .if !\\n(?b \ |
| . nr dn +(\\n(ppu*\\n($ru)/2u+\\n(zsu |
| .nr dl -\n(.H |
| .ie ((\\n(dn+\n(.V)>=\\n(.t):(\\n(?a):((\\n(dl>\\n($l)&(\\n($c>1)) \ |
| \{\ |
| . nr ?a 1 |
| . if (\\n(dl>\\n($l)&(\\n($m>1) \ |
| . nr ?w 1 |
| . ds |x |t |
| .\} |
| .el \ |
| \{\ |
| . nr ?b 1 |
| . if (\\n(dl>\\n($l)&(\\n($m>1) \ |
| . nr ?W 1 |
| . nr _b +\\n(dnu |
| . ch @f -\\n(_bu |
| . ds |x |b |
| .\} |
| .da \\*(|x |
| .nf |
| .ls 1 |
| .nr ?k 1 |
| \!.if \\\\n(nl>(\\\\n(tm+2v) .ne \\n(dnu-\\n(zsu |
| .eo |
| .cc @ |
| @|k |
| @cc |
| .ec |
| .nr ?k 0 |
| .rm |k |
| .da |
| .in 0 |
| .ls 1 |
| .xl \\n($lu |
| .ev |
| .. |
| .de @k |
| .ev 1 |
| .nf |
| .ls 1 |
| .in 0 |
| .sp \\n(zsu |
| .\\$1 |
| .ec |
| .br |
| .rm \\$1 |
| .ev |
| .nr ?T 0 |
| .. |
| .nr c. \n(_0 |
