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