99 lines
2.8 KiB
Plaintext
99 lines
2.8 KiB
Plaintext
.\" $NetBSD: float.me,v 1.3 2003/08/07 10:31:31 agc Exp $
|
|
.\"
|
|
.nr _0 \n(c.
|
|
.\" Copyright (c) 1988, 1993
|
|
.\" The Regents of the University of California. All rights reserved.
|
|
.\"
|
|
.\" Redistribution and use in source and binary forms, with or without
|
|
.\" modification, are permitted provided that the following conditions
|
|
.\" are met:
|
|
.\" 1. Redistributions of source code must retain the above copyright
|
|
.\" notice, this list of conditions and the following disclaimer.
|
|
.\" 2. Redistributions in binary form must reproduce the above copyright
|
|
.\" notice, this list of conditions and the following disclaimer in the
|
|
.\" documentation and/or other materials provided with the distribution.
|
|
.\" 3. Neither the name of the University nor the names of its contributors
|
|
.\" may be used to endorse or promote products derived from this software
|
|
.\" without specific prior written permission.
|
|
.\"
|
|
.\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
|
|
.\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
.\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
.\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
|
|
.\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
|
.\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
|
.\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
|
.\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
|
.\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
|
.\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
|
.\" SUCH DAMAGE.
|
|
.\"
|
|
.\" @(#)float.me 8.1 (Berkeley) 6/5/93
|
|
.\"
|
|
.\" %beginstrip%
|
|
.\"
|
|
.de (z \" *** begin floating keep
|
|
.if \n@>4 .tm >> (z, .z=\n(.z
|
|
.@D 4 \\$1 \\$2
|
|
.@(
|
|
.nr ?T 0
|
|
..
|
|
.de )z \" *** end floating keep
|
|
.if \n@>4 .tm >> )z, .z=\n(.z
|
|
.sp \\n(zsu
|
|
.@)
|
|
.if \n@>4 .tm -- )z << @), .z=\n(.z
|
|
.rr _0
|
|
.if !\\n(?b \
|
|
. nr dn +(\\n(ppu*\\n($ru)/2u+\\n(zsu
|
|
.nr dl -\n(.H \" fudge factor necessary to make it work
|
|
.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 \" mark wider than one column (top)
|
|
. ds |x |t
|
|
.\}
|
|
.el \
|
|
\{\
|
|
. 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
|
|
.nf
|
|
.ls 1
|
|
.nr ?k 1
|
|
.if \n@>4 .tm -- )z >> \\*(|x
|
|
\!.if \\\\n(nl>(\\\\n(tm+2v) .ne \\n(dnu-\\n(zsu
|
|
.|k\" \" and the body
|
|
.ec
|
|
.if \n@>4 .tm -- )z << \\*(|x, .z=\\n(.z
|
|
.nr ?k 0
|
|
.rm |k\" \" remove the temp macro
|
|
.da
|
|
.in 0
|
|
.ls 1
|
|
.xl \\n($lu
|
|
.ev
|
|
.if \n@>4 .tm << )z, .z=\\n(.z
|
|
..
|
|
.de @k \" --- output floating keep
|
|
.if \n@>4 .tm >> @k, $1=\\$1, .z=\\n(.z
|
|
.ev 1
|
|
.nf
|
|
.ls 1
|
|
.in 0
|
|
.sp \\n(zsu
|
|
.\\$1
|
|
.ec
|
|
.br
|
|
.rm \\$1
|
|
.ev
|
|
.nr ?T 0
|
|
..
|
|
.nr c. \n(_0
|