11638Srgrimes.nr _0 \n(c. 21638Srgrimes.\" Copyright (c) 1988, 1993 31638Srgrimes.\" The Regents of the University of California. All rights reserved. 41638Srgrimes.\" 51638Srgrimes.\" Redistribution and use in source and binary forms, with or without 61638Srgrimes.\" modification, are permitted provided that the following conditions 71638Srgrimes.\" are met: 81638Srgrimes.\" 1. Redistributions of source code must retain the above copyright 91638Srgrimes.\" notice, this list of conditions and the following disclaimer. 101638Srgrimes.\" 2. Redistributions in binary form must reproduce the above copyright 111638Srgrimes.\" notice, this list of conditions and the following disclaimer in the 121638Srgrimes.\" documentation and/or other materials provided with the distribution. 131638Srgrimes.\" 3. All advertising materials mentioning features or use of this software 141638Srgrimes.\" must display the following acknowledgement: 151638Srgrimes.\" This product includes software developed by the University of 161638Srgrimes.\" California, Berkeley and its contributors. 171638Srgrimes.\" 4. Neither the name of the University nor the names of its contributors 181638Srgrimes.\" may be used to endorse or promote products derived from this software 191638Srgrimes.\" without specific prior written permission. 201638Srgrimes.\" 211638Srgrimes.\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 221638Srgrimes.\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 231638Srgrimes.\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 241638Srgrimes.\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 251638Srgrimes.\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 261638Srgrimes.\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 271638Srgrimes.\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 281638Srgrimes.\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 291638Srgrimes.\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 301638Srgrimes.\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 311638Srgrimes.\" SUCH DAMAGE. 321638Srgrimes.\" 331638Srgrimes.\" @(#)float.me 8.1 (Berkeley) 6/5/93 341638Srgrimes.\" 351638Srgrimes.\" %beginstrip% 361638Srgrimes.\" 371638Srgrimes.de (z \" *** begin floating keep 381638Srgrimes.if \n@>4 .tm >> (z, .z=\n(.z 391638Srgrimes.@D 4 \\$1 \\$2 401638Srgrimes.@( 411638Srgrimes.nr ?T 0 421638Srgrimes.. 431638Srgrimes.de )z \" *** end floating keep 441638Srgrimes.if \n@>4 .tm >> )z, .z=\n(.z 451638Srgrimes.sp \\n(zsu 461638Srgrimes.@) 471638Srgrimes.if \n@>4 .tm -- )z << @), .z=\n(.z 481638Srgrimes.rr _0 491638Srgrimes.if !\\n(?b \ 501638Srgrimes. nr dn +(\\n(ppu*\\n($ru)/2u+\\n(zsu 511638Srgrimes.nr dl -\n(.H \" fudge factor necessary to make it work 521638Srgrimes.ie ((\\n(dn+\n(.V)>=\\n(.t):(\\n(?a):((\\n(dl>\\n($l)&(\\n($c>1)) \ 531638Srgrimes\{\ 541638Srgrimes. nr ?a 1 551638Srgrimes. if (\\n(dl>\\n($l)&(\\n($m>1) \ 561638Srgrimes. nr ?w 1 \" mark wider than one column (top) 571638Srgrimes. ds |x |t 581638Srgrimes.\} 591638Srgrimes.el \ 601638Srgrimes\{\ 611638Srgrimes. nr ?b 1 621638Srgrimes. if (\\n(dl>\\n($l)&(\\n($m>1) \ 631638Srgrimes. nr ?W 1 \" mark wider than one column (bottom) 641638Srgrimes. nr _b +\\n(dnu 651638Srgrimes. ch @f -\\n(_bu 661638Srgrimes. ds |x |b 671638Srgrimes.\} 681638Srgrimes.da \\*(|x \" copy to save macro 691638Srgrimes.nf 701638Srgrimes.ls 1 711638Srgrimes.nr ?k 1 721638Srgrimes.if \n@>4 .tm -- )z >> \\*(|x 731638Srgrimes\!.if \\\\n(nl>(\\\\n(tm+2v) .ne \\n(dnu-\\n(zsu 741638Srgrimes.|k\" \" and the body 751638Srgrimes.ec 761638Srgrimes.if \n@>4 .tm -- )z << \\*(|x, .z=\\n(.z 771638Srgrimes.nr ?k 0 781638Srgrimes.rm |k\" \" remove the temp macro 791638Srgrimes.da 801638Srgrimes.in 0 811638Srgrimes.ls 1 821638Srgrimes.xl \\n($lu 831638Srgrimes.ev 841638Srgrimes.if \n@>4 .tm << )z, .z=\\n(.z 851638Srgrimes.. 861638Srgrimes.de @k \" --- output floating keep 871638Srgrimes.if \n@>4 .tm >> @k, $1=\\$1, .z=\\n(.z 881638Srgrimes.ev 1 891638Srgrimes.nf 901638Srgrimes.ls 1 911638Srgrimes.in 0 921638Srgrimes.sp \\n(zsu 931638Srgrimes.\\$1 941638Srgrimes.ec 951638Srgrimes.br 961638Srgrimes.rm \\$1 971638Srgrimes.ev 981638Srgrimes.nr ?T 0 991638Srgrimes.. 1001638Srgrimes.nr c. \n(_0 101