diff options
Diffstat (limited to 'tmac/me/float.me')
-rw-r--r-- | tmac/me/float.me | 63 |
1 files changed, 63 insertions, 0 deletions
diff --git a/tmac/me/float.me b/tmac/me/float.me new file mode 100644 index 00000000..86a701c4 --- /dev/null +++ b/tmac/me/float.me @@ -0,0 +1,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 |