.nr _0 \n(c.
Copyright (c) 1988 The Regents of the University of California.
All rights reserved.
%sccs.include.redist.roff%
@(#)float.me 5.1 (Berkeley) 04/17/91
%beginstrip%
.@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
All rights reserved.
%sccs.include.redist.roff%
@(#)float.me 5.1 (Berkeley) 04/17/91
%beginstrip%
.@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