macr.nr 1.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113
  1. .LP
  2. .if n \{\
  3. .nr LL 78
  4. .ll 78 \}
  5. .tr ~
  6. .\" below are three simple macros to get the drawings right
  7. .\" added by Dick Grune
  8. .de Dr \" Drawing $1 (size)
  9. .sp 1
  10. .ne \\$1
  11. .na
  12. .ft CW \" constant spacing
  13. .lg 0 \" no ligatures
  14. ..
  15. .de Df \" Drawing Footer
  16. .br
  17. .sp 1
  18. .ft R
  19. .ce 1000
  20. .lg 1
  21. ..
  22. .de De \" Drawing End $1 (lines)
  23. .br
  24. .ft R
  25. .lg 1
  26. .ce 0
  27. .ad
  28. .sp \\$1
  29. ..
  30. .\" macro for exponents, added by Ceriel Jacobs
  31. .de Ex \" Exponent $1 $2 [$3]
  32. \\$1\v'-0.5m'\s-2\\$2\s+2\v'0.5m'\\$3
  33. ..
  34. .\" QQ is like PP, but without space
  35. . \" use .PP, with PD 0.
  36. .de QQ
  37. .nr xx \\n(PD
  38. .nr PD 0
  39. .PP
  40. .nr PD \\n(xx
  41. ..
  42. .nr N1 0
  43. .nr N2 0
  44. .nr N3 0
  45. .nr N4 0
  46. .nr N5 0
  47. .nr A5 0
  48. .af A5 A
  49. .de P1
  50. .nr N2 0
  51. .nr N1 \\n(N1+1
  52. .ds Tl "\\n(N1. \\$1
  53. .Ca 0
  54. .sp
  55. .LP
  56. \\fB\\n(N1. \\$1\\fP
  57. .sp
  58. ..
  59. .de P2
  60. .nr N3 0
  61. .nr N2 \\n(N2+1
  62. .ds Tl "\\n(N1.\\n(N2 \\$1
  63. .ne 5
  64. .Ca 2
  65. .sp
  66. .LP
  67. \\fB\\n(N1.\\n(N2 \\$1\fP
  68. ..
  69. .de P3
  70. .nr N4 0
  71. .nr N3 \\n(N3+1
  72. .ds Tl "\\n(N1.\\n(N2.\\n(N3 \\$1
  73. .Ca 4
  74. .LP
  75. \\fI\\n(N1.\\n(N2.\\n(N3 \\$1\fP
  76. ..
  77. .de P4
  78. .nr N4 \\n(N4+1
  79. .ds Tl "\\n(N1.\\n(N2.\\n(N3.\\n(N4 \\$1
  80. .ne 5
  81. .Ca 6
  82. .LP
  83. \\fI\\n(N1.\\n(N2.\\n(N3.\\n(N4 \\$1\fP
  84. ..
  85. .de AP
  86. .nr N5 \\n(N5+1
  87. .nr A5 \\n(N5
  88. .ds Tl "\\n(A5. \\$1
  89. .ne 5
  90. .Ca 0
  91. .LP
  92. \\fB\\n(A5. \\$1\\fP
  93. .sp
  94. ..
  95. .de Ca
  96. .da Cc
  97. .if \\$1=0 \!.sp \\\\n(PDu
  98. \!\l\&\\$1n\ \&\\*(Tl \l\&|\\\\n(LLu-\w\&\ \\n(PN\&u.\&\ \\n(PN
  99. \!.br
  100. .da
  101. ..
  102. .de Ct
  103. .Cc
  104. .rm Cc
  105. ..
  106. .de PT
  107. .lt \\n(LLu
  108. .pc %
  109. .nr PN \\n%-1
  110. .if \\n(PN%2=1 .tl '''\\n(PN'
  111. .if (\\n(PN%2=0)&(\\n(PN) .tl '\\n(PN'''
  112. .lt \\n(.lu
  113. ..