home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1996 May / buyer-0596.iso / internet / amber / archive.z / VIEWER32.EXE / PSPROCSET / 6 < prev    next >
Text File  |  1995-12-07  |  5KB  |  283 lines
  1. %%BeginFile: pdftext.prc
  2. %%Copyright: Copyright 1987-1994 Adobe Systems Incorporated. All Rights Reserved.
  3. PDF /PDFText 51 dict dup begin put
  4. /initialize { /TZ isdefined? not { PDFText begin } if } bd
  5. /terminate { currentdict PDFText eq { end } if } bd
  6. /CopyFont {
  7. {
  8. 1 index /FID ne 2 index /UniqueID ne and
  9. { def } { pop pop } ifelse
  10. } forall
  11. } bd
  12. /modEnc {
  13. /_enc xdd
  14. /_icode 0 dd
  15. counttomark 1 sub -1 0
  16. {
  17. index
  18. dup type /nametype eq
  19. {
  20. _enc _icode 3 -1 roll put
  21. _icode 1 add
  22. }
  23. if
  24. /_icode xdd
  25. } for
  26. cleartomark
  27. _enc
  28. } bd
  29. /trEnc {
  30. /_enc xdd
  31. 255 -1 0 {
  32. exch dup -1 eq
  33. { pop /.notdef }
  34. { Encoding exch get }
  35. ifelse
  36. _enc 3 1 roll put
  37. } for
  38. pop
  39. _enc
  40. } bd
  41. /TE {
  42. /_i xdd
  43. StandardEncoding 256 array copy modEnc
  44. _pdfEncodings exch _i exch put
  45. } bd
  46. /TZ
  47. {
  48. /_usePDFEncoding xdd
  49. findfont
  50. dup length 2 add dict
  51. begin
  52. {
  53. 1 index /FID ne { def } { pop pop } ifelse
  54. } forall
  55. /FontName exch def
  56. _usePDFEncoding 0 ge
  57. {
  58. /Encoding _pdfEncodings _usePDFEncoding get def
  59. pop
  60. }
  61. {
  62. _usePDFEncoding -1 eq
  63. {
  64. counttomark 0 eq
  65. { pop }
  66. {
  67. Encoding 256 array copy
  68. modEnc /Encoding exch def
  69. }
  70. ifelse
  71. }
  72. {
  73. 256 array
  74. trEnc /Encoding exch def
  75. }
  76. ifelse
  77. }
  78. ifelse
  79. FontName currentdict
  80. end
  81. definefont pop
  82. }
  83. bd
  84. /swj {
  85. dup 4 1 roll
  86. dup length exch stringwidth
  87. exch 5 -1 roll 3 index mul add
  88. 4 1 roll 3 1 roll mul add
  89. 6 2 roll /_cnt 0 dd
  90. {1 index eq {/_cnt _cnt 1 add dd} if} forall pop
  91. exch _cnt mul exch _cnt mul 2 index add 4 1 roll 2 index add 4 1 roll pop pop
  92. } bd
  93. /jss {
  94. 4 1 roll
  95. {
  96. 2 npop
  97. (0) exch 2 copy 0 exch put
  98. gsave
  99. 32 eq
  100. {
  101. exch 6 index 6 index 6 index 5 -1 roll widthshow
  102. currentpoint
  103. }
  104. {
  105. false charpath currentpoint
  106. 4 index setmatrix stroke
  107. }
  108. ifelse
  109. grestore
  110. moveto
  111. 2 copy rmoveto
  112. } exch cshow
  113. 6 npop
  114. } def
  115. /jsp
  116. {
  117. {
  118. 2 npop
  119. (0) exch 2 copy 0 exch put
  120. 32 eq
  121. { exch 5 index 5 index 5 index 5 -1 roll widthshow }
  122. { false charpath }
  123. ifelse
  124. 2 copy rmoveto
  125. } exch cshow
  126. 5 npop
  127. } bd
  128. /trj { _cx 0 32 _ax 0 6 5 roll } bd
  129. /pjsf { trj sfc awidthshow } bd
  130. /pjss { trj _ctm ssc jss } bd
  131. /pjsc { trj jsp } bd
  132. /_Tjdef [
  133. /pjsf load
  134. /pjss load
  135. {
  136. dup
  137. currentpoint 3 2 roll
  138. pjsf
  139. newpath moveto
  140. pjss
  141. } bind
  142. {
  143. trj swj rmoveto
  144. } bind
  145. {
  146. dup currentpoint 4 2 roll gsave
  147. pjsf
  148. grestore 3 1 roll moveto
  149. pjsc
  150. } bind
  151. {
  152. dup currentpoint 4 2 roll
  153. currentpoint gsave newpath moveto
  154. pjss
  155. grestore 3 1 roll moveto
  156. pjsc
  157. } bind
  158. {
  159. dup currentpoint 4 2 roll gsave
  160. dup currentpoint 3 2 roll
  161. pjsf
  162. newpath moveto
  163. pjss
  164. grestore 3 1 roll moveto
  165. pjsc
  166. } bind
  167. /pjsc load
  168. ] def
  169. /BT
  170. {
  171. /_inT true dd
  172. _ctm currentmatrix pop matrix _tm copy pop
  173. 0 _rise translate _hs 1 scale
  174. 0 0 moveto
  175. } bd
  176. /ET
  177. {
  178. /_inT false dd
  179. _tr 3 gt {clip} if
  180. _ctm setmatrix newpath
  181. } bd
  182. /Tr {
  183. _inT { _tr 3 le {currentpoint newpath moveto} if } if
  184. dup /_tr xdd
  185. _Tjdef exch get /Tj xdd
  186. } bd
  187. /iTm { _ctm setmatrix _tm concat 0 _rise translate _hs 1 scale } bd
  188. /Tm { _tm astore pop iTm 0 0 moveto } bd
  189. /Td { _mtx translate _tm _tm concatmatrix pop iTm 0 0 moveto } bd
  190. /TD { dup /_ld xdd Td } bd
  191. /Tf {
  192. dup 1000 div /_fScl xdd
  193. exch findfont exch scalefont setfont
  194. } bd
  195. /TL { neg /_ld xdd } bd
  196. /Tw { /_cx xdd } bd
  197. /Tc { /_ax xdd } bd
  198. /Ts { /_rise xdd currentpoint iTm moveto } bd
  199. /Tz { 100 div /_hs xdd iTm } bd
  200. /Tk { exch pop _fScl mul neg 0 rmoveto } bd
  201. /T* { 0 _ld Td } bd
  202. /' { 0 0 3 -1 roll " } bd
  203. /" { exch Tc exch Tw T* Tj } bd
  204. /TJ {
  205. {
  206. dup type /stringtype eq
  207. { Tj }
  208. { 0 exch Tk }
  209. ifelse
  210. } forall
  211. } bd
  212. /T- { _hy Tj } bd
  213. /d0/setcharwidth ld
  214. /d1 { setcachedevice /sfc{}dd /ssc{}dd } bd
  215. /nND {{/.notdef} repeat} bd
  216. /T3Defs {
  217. /BuildChar
  218. {
  219. 1 index /Encoding get exch get
  220. 1 index /BuildGlyph get exec
  221. }
  222. def
  223. /BuildGlyph {
  224. exch begin
  225. GlyphProcs exch get exec
  226. end
  227. } def
  228. } bd
  229. /MakeBold {
  230. findfont dup dup length 2 add dict
  231. begin
  232. CopyFont
  233. /PaintType 2 def
  234. /StrokeWidth .03 0 FontMatrix idtransform pop def
  235. /dummybold currentdict
  236. end
  237. definefont
  238. 8 dict begin
  239. /_basefont exch def
  240. /_basefonto exch def
  241. /FontType 3 def
  242. /FontMatrix[1 0 0 1 0 0]def
  243. /FontBBox[0 0 1 1]def
  244. /Encoding StandardEncoding def
  245. /BuildChar
  246. {
  247. exch begin
  248. _basefont setfont
  249. ( )dup 0 4 -1 roll put
  250. dup stringwidth
  251. 1 index 0 ne { exch .03 add exch }if
  252. setcharwidth
  253. 0 0 moveto
  254. gsave
  255. dup show
  256. grestore
  257. _basefonto setfont
  258. show
  259. end
  260. }bd
  261. currentdict
  262. end
  263. definefont pop
  264. }bd
  265. /MakeItalic {
  266. findfont _italMtx makefont
  267. dup length dict
  268. begin
  269. CopyFont
  270. currentdict
  271. end
  272. definefont pop
  273. }bd
  274. /MakeBoldItalic {
  275. /dummybold exch
  276. MakeBold
  277. /dummybold
  278. MakeItalic
  279. }bd
  280. currentdict readonly pop end
  281. %%EndFile
  282.  
  283.