home *** CD-ROM | disk | FTP | other *** search
/ NeXTSTEP 3.3.4.17 [SPARC, PA-RISC] / nextstep33_risc.iso / usr / lib / me / float.me < prev    next >
Encoding:
Text File  |  1995-02-05  |  749 b   |  61 lines
  1. .nr _0 \n(c.
  2. .\"    @(#)float.me    2.2    2/26/81
  3. .\" This version has had comments stripped; an unstripped version is available.
  4. .de (z
  5. .@D 4 \\$1 \\$2
  6. .@(
  7. .nr ?T 0
  8. ..
  9. .de )z
  10. .sp \\n(zsu
  11. .@)
  12. .rr _0
  13. .if !\\n(?b \
  14. .    nr dn +(\\n(ppu*\\n($ru)/2u+\\n(zsu
  15. .nr dl -\n(.H
  16. .ie ((\\n(dn+\n(.V)>=\\n(.t):(\\n(?a):((\\n(dl>\\n($l)&(\\n($c>1)) \
  17. \{\
  18. .    nr ?a 1
  19. .    if (\\n(dl>\\n($l)&(\\n($m>1) \
  20. .        nr ?w 1
  21. .    ds |x |t
  22. .\}
  23. .el \
  24. \{\
  25. .    nr ?b 1
  26. .    if (\\n(dl>\\n($l)&(\\n($m>1) \
  27. .        nr ?W 1
  28. .    nr _b +\\n(dnu
  29. .    ch @f -\\n(_bu
  30. .    ds |x |b
  31. .\}
  32. .da \\*(|x
  33. .nf
  34. .ls 1
  35. .nr ?k 1
  36. \!.if \\\\n(nl>(\\\\n(tm+2v) .ne \\n(dnu-\\n(zsu
  37. .|k\"
  38. .ec
  39. .nr ?k 0
  40. .rm |k\"
  41. .da
  42. .in 0
  43. .ls 1
  44. .xl \\n($lu
  45. .ev
  46. ..
  47. .de @k
  48. .ev 1
  49. .nf
  50. .ls 1
  51. .in 0
  52. .sp \\n(zsu
  53. .\\$1
  54. .ec
  55. .br
  56. .rm \\$1
  57. .ev
  58. .nr ?T 0
  59. ..
  60. .nr c. \n(_0
  61.