home *** CD-ROM | disk | FTP | other *** search
/ OpenStep 4.2J / os42j.iso / usr / lib / tmac / tmac.a next >
Text File  |  1991-09-23  |  8KB  |  292 lines
  1. .\"    ********** dictionary **********
  2. .\"        B0 size of wide figure just diverted
  3. .\"        B1 size of figure at top full wdith
  4. .\"        B2 if figure at full width bottom
  5. .\"        B3 name of full width top figure for next page
  6. .\"        B4 full width bottom figure
  7. .\"        B5 wide top figure size scheduled for this page
  8. .\"        B6 true if a wide figure being diverted
  9. .\"        B8 if at EM end up macro stage
  10. .\"        B9 if at page bottom
  11. .\"        BM width bottom margin
  12. .\"        BX full width top figure, this page
  13. .\"        CE end caption.
  14. .\"        CP store caption.
  15. .\"        CS begin caption; center if 1 line, else paragraph.
  16. .\"        CW column width
  17. .\"        D1 amount of text left column
  18. .\"        D2 amount of text right column
  19. .\"        D3 arithmetic scratch, typically whether went past page footer
  20. .\"        D9 scratch, remembers length of diverted keep
  21. .\"        DN name of current diversion trap
  22. .\"        DO default page offset
  23. .\"        EE string to be prefixed to an equation to indent it two spaces if wanted
  24. .\"        EL equation label
  25. .\"        EZ rathole to throw equations down
  26. .\"        F0 argument to GS specifying quadrant
  27. .\"        F1 biggest space available in left column
  28. .\"        F2 biggest space available in right column
  29. .\"        F5 position of top of 2 2col section
  30. .\"        F6 argument to BS specifying top/bottom
  31. .\"        G0 (1) count authors
  32. .\"           (2) size of just entered figure
  33. .\"        G1 size figure top left next page
  34. .\"        G2 size figure top right next page
  35. .\"        G3 size left bottom figure
  36. .\"        G4 size right bottom figure
  37. .\"        G5 true if next top narrow figure goes to right side (next page)
  38. .\"        G6 true if next bottom narrow figure goes to right side
  39. .\"        G7 (1) amount space before bottom wide figure to sit on baseline
  40. .\"           (2) flag for doubled up narrow figures into a wide one
  41. .\"        G8 true if figure has been placed
  42. .\"        G9 if at page top
  43. .\"        GD buffer where narrow figure is placed
  44. .\"        GJ figure top left next page
  45. .\"        GK figure top right next page
  46. .\"        GL content left bottom figure
  47. .\"        GM content right bottom figure
  48. .\"        GP left half of a figure pair
  49. .\"        GQ right half of a figure pair
  50. .\"        H0 section numbers for numbered headings
  51. .\"        H1 size of figure at top left this page
  52. .\"        H2 size of figure top right this page
  53. .\"        HJ figure at top left this page
  54. .\"        HK figure at top right this page
  55. .\"        HS true if just at a section heading
  56. .\"        IK true if inside a KS/KE
  57. .\"        L1 shortest legal amount of two column material
  58. .\"        L2 amount of 2 column stuff expected
  59. .\"        L4 amount being diverted
  60. .\"        L5 amount of text diverted in double-column hunt
  61. .\"        L6 zero if right column, true if too short to split up
  62. .\"        L7 minimum length of a split column
  63. .\"        LC position of left column bottom
  64. .\"        LE computation of column lengths  \" LE should be F3
  65. .\"        LE true if equations are labeled
  66. .\"        LH left running head
  67. .\"        LL line length
  68. .\"        LS general looseness parameter
  69. .\"        MX expand month name
  70. .\"        NB number of columns possible
  71. .\"        NC number of columns being set
  72. .\"        ND have been in double column before, not first break to it.
  73. .\"        NU issue number
  74. .\"        P1 (1) height left col
  75. .\"           (2) amount to pad total
  76. .\"        P2 height right column
  77. .\"        P3 amount of extra space at a 1C-2C transition
  78. .\"        P4 temporary in filling columns calcuations
  79. .\"        PS standard point size
  80. .\"        Q1 number of places to pad
  81. .\"        Q2 number padding points right column
  82. .\"        RO position of right column (offset for)
  83. .\"        S1 position of space in column
  84. .\"        S2 size of space
  85. .\"        T1 true if top figure position forced by GS arg
  86. .\"        T2 true if bottom figure position forced by GS arg
  87. .\"        TB true if there is to be a turnover bar here.
  88. .\"        TP true if still at document title (turnover bar decision)
  89. .\"        TQ position at top of page
  90. .\"        TT >0 if figure, etc. doesn't fit this page
  91. .\"        TT right running head (title)
  92. .\"        TW table width (set by TBL)
  93. .\"        VN volume number
  94. .\"        VS standard vertical spacing
  95. .\"        GW gutter width
  96. .\"        X1 diversion to hold left column
  97. .\"        X2 diversion to hold right column
  98. .\"        XI value of indent to be restored after abstract
  99. .\"        XQ register in which padding points are counted
  100. .\"        XR true (1) if past the very first paragraph
  101. .\"        XX diversion to hold input text in preparation for formatting
  102. .\"        YE past very top: avoids a break in the EQ/EN macro before startup.
  103. .\"        ZN size of equation
  104. .\"        mo month name
  105. .\"        y  place of footer trap
  106. .\"        
  107. .\"        
  108. .\"    ********** environments *********
  109. .\"        0  normal
  110. .\"        1  figures
  111. .\"        2  while columns are arranged
  112. .\"        
  113. .\"        
  114. .\"    ********** macros **********
  115. .\"        for user        which invoke
  116. .\"    TL,AU,AI,AB,AE    IZ, EA, AX, AY
  117. .\"    EQ, EN        @L, @C, @I
  118. .\"    TS,TE
  119. .\"    SP, PP        FI, NX, RT
  120. .\"    2C        2D, 2S, C4, C3, LA
  121. .\"    1C        1D, 1E, 1S, C6, C7
  122. .\"    ST, LS        CL
  123. .\"    SL
  124. .\"    GS, GE        GA,GB,GG,GU,GV,GW,GX,GY,GZ,GN,GO,C8,MR,BR
  125. .\"    BS,BE        BA,BB,BC,BD
  126. .\"    KS,KE        KU,KT
  127. .\"    CS,CE        CP
  128. .\"    SH,NH
  129. .\"    B, I, R
  130. .\"    UL
  131. .\"    ne        NE
  132. .\"            EM, NP, FO, CM
  133. .\"        
  134. .nr B9 1
  135. .\"        -----------------------------
  136. .de RT \" reset params to normal state
  137. .ce 0
  138. .ul 0
  139. .ti 0
  140. .if \\n(IP .in -\\n(IQn
  141. .if \\n(IP .nr IP -1
  142. .ft 1
  143. .if \\n(AJ=0 .ps \\n(PS
  144. .if \\n(AJ=0 .vs \\n(VSp
  145. .fi
  146. ..
  147. .\"        -----------------------------
  148. .de IZ \"initialization
  149. .MX
  150. .rm MX
  151. .if !\\n(BM .nr BM 1.13i
  152. .nr y 0-\\n(BM
  153. .if \\n(DO=0 .nr DO .4i
  154. .wh 0 NP
  155. .po \\n(DOu
  156. .nr IP 0
  157. .if !\\n(PS .nr PS 9
  158. .if !\\n(L1 .nr L1 1.5i  \"minimum amount of double column
  159. .if !\\n(VS .nr VS 11
  160. .ps \\n(PS
  161. .vs \\n(VSp
  162. .if !\\n(PI .nr PI 2n
  163. .if !\\n(PD .nr PD 0
  164. .if !\\n(CW .nr CW 3.1i
  165. .if !\\n(GW .nr GW 0.4i
  166. .nr RO \\n(CWu+\\n(GWu
  167. .nr YE 1
  168. .nr LL \\n(RO+\\n(CW
  169. .ll \\n(LLu
  170. .lt \\n(LLu
  171. .nr NC 1
  172. .nr NB 1
  173. .wh \\nyu FO
  174. ..
  175. .\"        -----------------------------
  176. .de EQ  \"equation, breakout and display
  177. .nr EF \\n(.u
  178. .rm EE
  179. .nr LE 1    \" 1 is center
  180. .ds EL \\$1
  181. .if "\\$1"L" .ds EL \\$2
  182. .if "\\$1"L" .nr LE 0
  183. .if "\\$1"C" .ds EL \\$2
  184. .if "\\$1"I" .nr LE 0
  185. .if "\\$1"I" .ds EE \\h'4n'
  186. .if "\\$1"I" .if !"\\$3"" .ds EE \\h'\\$3'
  187. .if "\\$1"I" .ds EL \\$2
  188. .if \\n(YE>0 .nf
  189. .di EZ
  190. ..
  191. .\"        -----------------------------
  192. .de EN  \" end of a displayed equation
  193. .if !"\\n(.z"EZ" .tm EN not preceded by EQ, disaster follows.
  194. .br
  195. .ce 0
  196. .di
  197. .rm EZ
  198. .nr ZN 1
  199. .if "\\*(10"" .nr ZN 0
  200. .if \\n(ZN=0 .if !"\\*(EL"" .nr ZN 1
  201. .lt \\n(.lu
  202. .br
  203. .if \\n(ZN>0 .if !\\n(.d=\\n(PE .SP 0.5
  204. .pc
  205. .if \\n(BD>0 .nr LE 0 \" can't mean centering in this case.
  206. .if \\n(ZN>0 .if \\n(LE>0 .tl \(ts\(ts\\*(10\(ts\\*(EL\(ts
  207. .if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD=0 .tl \(ts\\*(EE\\*(10\(ts\(ts\\*(EL\(ts
  208. .if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD>0 \!\\*(10\\\\t\\*(EL
  209. .if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD>0 .if \\n(BD<\\w'\\*(10' .nr BD \\w'\\*(10'
  210. .lt \\n(LLu
  211. .pc %
  212. .br
  213. .if \\n(YE>0 .if \\n(EF>0 .fi
  214. .rm EL
  215. .if \\n(ZN>0 .SP 0.5
  216. .nr PE \\n(.d
  217. ..
  218. .\"        -----------------------------
  219. .de TL  \"title of document
  220. .IZ
  221. .rm IZ
  222. .br
  223. .if \\n(XR>0 .EA
  224. .ll \\n(LLu
  225. .ft 3
  226. .ps 11
  227. .if \\n(PS=9 .nr y -3v
  228. .ce 1000
  229. .nr TP 1
  230. .nr G0 0
  231. .bd 1 3
  232. .bd 2 3
  233. .if !"xx\\n(.z"xx" \!.bd 1 3
  234. .if !"xx\\n(.z"xx" \!.bd 2 3
  235. ..
  236. .\"        -----------------------------
  237. .de AU  \"author(s) name(s)
  238. .ft 1
  239. .br
  240. .bd 1
  241. .bd 2
  242. .if !"xx\\n(.z"xx" \!.bd 1
  243. .if !"xx\\n(.z"xx" \!.bd 2
  244. .if !\\n(G0 .sp
  245. .if \\n(G0 .sp .5
  246. .if \\n(G0 and
  247. .if \\n(G0 .sp .5
  248. .nr G0 +1
  249. .ps \\n(PS
  250. ..
  251. .\"        -----------------------------
  252. .de AI  \"authors institution
  253. .ft 2
  254. .ps \\n(PS-1
  255. ..
  256. .\"        -----------------------------
  257. .de AB  \"abstract start
  258. .ce 0
  259. .ll \\n(LLu
  260. .fi
  261. .ft 1
  262. .sp
  263. .nr XI \\n(.i
  264. .nr AJ 1
  265. .in +\\n(.lu/8u
  266. .ll -\\n(.lu/8u
  267. .nr PS -1
  268. .ps \\n(PS
  269. .nr VS -1
  270. .vs \\n(VSp
  271. .ti +2n
  272. ..
  273. .\"        -----------------------------
  274. .de AE  \"abstract end
  275. .ll \\n(LLu
  276. .in \\n(XIu
  277. .ce 0
  278. .nr PS +1
  279. .ps \\n(PS
  280. .nr VS +1
  281. .vs \\n(VSp
  282. .nr AJ 0
  283. .if !\\n(.d=\\n(nl .AX
  284. .if \\n(PS=9 .sp 2
  285. .nr XR 0
  286. .nr ND 0
  287. .2C
  288. ..
  289. .\"        No default table macro now.
  290. .\"        .        -----------------------------
  291. .\"        .de TS  \"table start
  292.