home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / utility / text / nroffami.lha / tmac.lha / tmac.sdisp < prev    next >
Encoding:
Text File  |  1992-05-26  |  841 b   |  62 lines
  1. .\"    @(#)tmac.sdisp    1.5    88/02/08
  2. .    \"DS - display.  If .DS C, center; L, left-adjust; I, indent.
  3. .de DS
  4. .KS
  5. .nf
  6. .\\$1D \\$2 \\$1
  7. .ft 1
  8. .ps \\n(PS
  9. .if \\n(VS>40 .vs \\n(VSu
  10. .if \\n(VS<=39 .vs \\n(VSp
  11. ..
  12. .de D
  13. .ID \\$1
  14. ..
  15. .de CD
  16. .XD
  17. .ce 1000
  18. ..
  19. .de ID
  20. .XD
  21. .if t .in +0.5i
  22. .if n .in +8
  23. .if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in \\n(OIu
  24. .if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in +\\$1n
  25. ..
  26. .de LD
  27. .XD
  28. ..
  29. .de XD
  30. .nf
  31. .nr OI \\n(.i
  32. .if t .sp 0.5
  33. .if n .sp 1
  34. ..
  35. .de BD \" block display: save everything, then center it.
  36. .XD
  37. .nr BD 1
  38. .nf
  39. .in \\n(OIu
  40. .di DD
  41. ..
  42. .    \"DE - display end
  43. .de DE
  44. .ce 0
  45. .if \\n(BD>0 .DF
  46. .nr BD 0
  47. .in \\n(OIu
  48. .KE
  49. .if t .sp 0.5
  50. .if n .sp 1
  51. .fi
  52. ..
  53. .de DF \" finish a block display to be recentered.
  54. .di
  55. .if \\n(dl>\\n(BD .nr BD \\n(dl
  56. .if \\n(BD<\\n(.l .in (\\n(.lu-\\n(BDu)/2u
  57. .nr EI \\n(.l-\\n(.i
  58. .ta \\n(EIuR
  59. .DD
  60. .in \\n(OIu
  61. ..
  62.