home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1996 May / buyer-0596.iso / internet / amber / archive.z / VIEWER32.EXE / PSPROCSET / 5 < prev    next >
Encoding:
Text File  |  1995-12-07  |  4.2 KB  |  293 lines
  1. %%BeginFile: pdf.prc
  2. %%Copyright: Copyright 1987-1994 Adobe Systems Incorporated. All Rights Reserved.
  3. /initialize {
  4. PDF begin
  5. PDFVars begin
  6. newpath
  7. } bd
  8. /terminate {
  9. end
  10. end
  11. } bd
  12. /setstrokeadjust isdefined?
  13. {
  14. true setstrokeadjust
  15. /m/moveto ld
  16. /l/lineto ld
  17. /c/curveto ld
  18. }
  19. {
  20. /pl {
  21. transform
  22. 0.25 sub round 0.25 add exch
  23. 0.25 sub round 0.25 add exch
  24. itransform
  25. } bd
  26. /m { pl moveto } bd
  27. /l { pl lineto } bd
  28. /c { pl curveto } bd
  29. }
  30. ifelse
  31. /v { currentpoint 6 2 roll c } bd
  32. /y { 2 copy c } bd
  33. /h/closepath ld
  34. /d/setdash ld
  35. /j/setlinejoin ld
  36. /J/setlinecap ld
  37. /M/setmiterlimit ld
  38. /w/setlinewidth ld
  39. /cf currentflat def
  40. /i {
  41. dup 0 eq { pop cf } if
  42. setflat
  43. } bd
  44. /ilp { /_lp /none dd } bd
  45. /sfc {
  46. _lp /fill ne {
  47. _sfcs
  48. _sfc
  49. /_lp /fill dd
  50. } if
  51. } bd
  52. /ssc {
  53. _lp /stroke ne {
  54. _sscs
  55. _ssc
  56. /_lp /stroke dd
  57. } if
  58. } bd
  59. /n {
  60. _doClip 1 ge {
  61. _doClip 1 eq { clip } { eoclip } ifelse
  62. /_doClip 0 dd
  63. } if
  64. newpath
  65. } bd
  66. /f {
  67. _doClip 1 ge
  68. {
  69. gsave sfc fill grestore
  70. _doClip 1 eq { clip } { eoclip } ifelse
  71. newpath
  72. ilp
  73. /_doClip 0 dd
  74. }
  75. { sfc fill }
  76. ifelse
  77. } bd
  78. /f* {
  79. _doClip 1 ge
  80. {
  81. gsave sfc eofill grestore
  82. _doClip 1 eq { clip } { eoclip } ifelse
  83. newpath
  84. ilp
  85. /_doClip 0 dd
  86. }
  87. { sfc eofill }
  88. ifelse
  89. } bd
  90. /S {
  91. _doClip 1 ge
  92. {
  93. gsave ssc stroke grestore
  94. _doClip 1 eq { clip } { eoclip } ifelse
  95. newpath
  96. ilp
  97. /_doClip 0 dd
  98. }
  99. { ssc stroke }
  100. ifelse
  101. } bd
  102. /s { h S } bd
  103. /B {
  104. _doClip dup 1 ge
  105. gsave f grestore
  106. {
  107. gsave S grestore
  108. 1 eq { clip } { eoclip } ifelse
  109. newpath
  110. ilp
  111. /_doClip 0 dd
  112. }
  113. { pop S }
  114. ifelse
  115. } bd
  116. /b { h B } bd
  117. /B* {
  118. _doClip dup 1 ge
  119. gsave f* grestore
  120. {
  121. gsave S grestore
  122. 1 eq { clip } { eoclip } ifelse
  123. newpath
  124. ilp
  125. /_doClip 0 dd
  126. }
  127. { pop S }
  128. ifelse
  129. } bd
  130. /b* { h B* } bd
  131. /W { /_doClip 1 dd } bd
  132. /W* { /_doClip 2 dd } bd
  133. /q/save ld
  134. /Q { restore ilp } bd
  135. Level2? not StartLoad {
  136. /cs
  137. {
  138. dup where { pop load } if
  139. /_sfcs { } dd
  140. dup type /arraytype eq
  141. { dup 0 get /Indexed eq { 1 } { 0 } ifelse get }
  142. if
  143. dup /DeviceCMYK eq
  144. {
  145. /_fc _f4 dd
  146. /_sfc { _fc aload pop setcmykcolor } dd
  147. }
  148. {
  149. dup /DeviceRGB eq
  150. {
  151. /_fc _f3 dd
  152. /_sfc { _fc aload pop setrgbcolor } dd
  153. }
  154. {
  155. /_fc _f1 dd
  156. /_sfc { _fc aload pop setgray } dd
  157. }
  158. ifelse
  159. }
  160. ifelse
  161. pop
  162. } bd
  163. /CS
  164. {
  165. dup where { pop load } if
  166. /_sscs { } dd
  167. dup type /arraytype eq
  168. { dup 0 get /Indexed eq { 1 } { 0 } ifelse get }
  169. if
  170. dup /DeviceCMYK eq
  171. {
  172. /_sc _s4 dd
  173. /_ssc { _sc aload pop setcmykcolor } dd
  174. }
  175. {
  176. dup /DeviceRGB eq
  177. {
  178. /_sc _s3 dd
  179. /_ssc { _sc aload pop setrgbcolor } dd
  180. }
  181. %%% /Pattern not impl'd
  182. {
  183. /_sc _s1 dd
  184. /_ssc { _sc aload pop setgray } dd
  185. }
  186. ifelse
  187. }
  188. ifelse
  189. pop
  190. } bd
  191. /ri { pop } bd
  192. } EndLoad
  193. Level2? StartLoad {
  194. /cs
  195. {
  196. dup where { pop load } if
  197. dup /_fcs xdd
  198. /_sfcs { _fcs setcolorspace } dd
  199. dup type /arraytype eq
  200. { dup 0 get /Indexed eq { 1 } { 0 } ifelse get }
  201. if
  202. dup /DeviceCMYK eq
  203. { /_fc _f4 dd }
  204. {
  205. dup /DeviceRGB eq dup /CIEBasedABC eq or
  206. { /_fc _f3 dd }
  207. { /_fc _f1 dd }
  208. ifelse
  209. }
  210. ifelse
  211. pop
  212. /_sfc { _fc aload pop setcolor } dd
  213. } bd
  214. /CS
  215. {
  216. dup where { pop load } if
  217. dup /_scs xdd
  218. /_sscs { _scs setcolorspace } dd
  219. dup type /arraytype eq
  220. { dup 0 get /Indexed eq { 1 } { 0 } ifelse get }
  221. if
  222. dup /DeviceCMYK eq
  223. { /_sc _s4 dd }
  224. {
  225. dup /DeviceRGB eq dup /CIEBasedABC eq or
  226. { /_sc _s3 dd }
  227. { /_sc _s1 dd }
  228. ifelse
  229. }
  230. ifelse
  231. pop
  232. /_ssc { _sc aload pop setcolor } dd
  233. } bd
  234. /ri {
  235. /findcolorrendering isdefined?
  236. {
  237. findcolorrendering pop
  238. dup /ColorRendering resourcestatus
  239. {
  240. pop pop
  241. /ColorRendering findresource
  242. setcolorrendering
  243. }
  244. { pop }
  245. ifelse
  246. }
  247. { pop }
  248. ifelse
  249. } bd
  250. } EndLoad
  251. /sc
  252. {
  253. _fc astore pop
  254. ilp
  255. } bd
  256. /SC
  257. {
  258. _sc astore pop
  259. ilp
  260. } bd
  261. /g { /DefaultGray cs sc } bd
  262. /rg { /DefaultRGB cs sc } bd
  263. /k { /DeviceCMYK cs sc } bd
  264. /pc { /DeviceGray cs pop 0.5 sc } bd
  265. /G { /DefaultGray CS SC } bd
  266. /RG { /DefaultRGB CS SC } bd
  267. /K { /DeviceCMYK CS SC } bd
  268. /PC { /DeviceGray CS pop 0.5 SC } bd
  269. /cm { _mtx astore concat } bd
  270. /re {
  271. 4 2 roll m
  272. 1 index 0 rlineto
  273. 0 exch rlineto
  274. neg 0 rlineto
  275. h
  276. } bd
  277. /RC/rectclip ld
  278. /EF/execform ld
  279. /PS { cvx exec } bd
  280. /initgs {
  281. /DefaultGray where
  282. { pop }
  283. { /DefaultGray /DeviceGray dd }
  284. ifelse
  285. /DefaultRGB where
  286. { pop }
  287. { /DefaultRGB /DeviceRGB dd }
  288. ifelse
  289. 0 g 0 G
  290. []0 d 0 j 0 J 10 M 1 w
  291. } bd
  292. %%EndFile
  293.