.nr _0 \n(c. @(#)float.me 2.3 (Berkeley) 05/19/88
%beginstrip%

Copyright (c) 1988 Regents of the University of California.
All rights reserved.

Redistribution and use in source and binary forms are permitted
provided that this notice is preserved and that due credit is given
to the University of California at Berkeley. The name of the University
may not be used to endorse or promote products derived from this
software without specific prior written permission. This software
is provided ``as is'' without express or implied warranty.

.@D 4 \\$1 \\$2 .@( .nr ?T 0 .. .@) .rr _0 . nr dn +(\\n(ppu*\\n($ru)/2u+\\n(zsu .nr dl -\n(.H \" fudge factor necessary to make it work \{\ . nr ?a 1 . if (\\n(dl>\\n($l)&(\\n($m>1) \ . nr ?w 1 \" mark wider than one column (top) . ds |x |t .\} \{\ . nr ?b 1 . if (\\n(dl>\\n($l)&(\\n($m>1) \ . nr ?W 1 \" mark wider than one column (bottom) . nr _b +\\n(dnu . ch @f -\\n(_bu . ds |x |b .\} .da \\*(|x \" copy to save macro

.ls 1
.nr ?k 1
\!.if \\\\n(nl>(\\\\n(tm+2v) .ne \\n(dnu-\\n(zsu
.|k\" \" and the body
.ec
.nr ?k 0
.da
.ls 1
.xl \\n($lu
.ev
..
.ev 1
.ls 1
.\\$1
.ec

.ev
.nr ?T 0
..
.nr c. \n(_0