blob: 86a701c453c7e3a62285d7ad91625405e708a5e4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
.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
|