home *** CD-ROM | disk | FTP | other *** search
/ Hacker 27 / HACKER27.BIN / Infoexpress / AcroRd32.exe / PSPROCSET / 19 < prev    next >
Text File  |  2000-01-27  |  6KB  |  275 lines
  1. %%BeginResource: procset pdflev3
  2. %%Version: 4.0 6
  3. %%Copyright: Copyright 1987-1999 Adobe Systems Incorporated. All Rights Reserved.
  4. %%LanguageLevel: 3
  5. %%Title: PDF operators, with code specific for Level 3
  6. /_defaulthalftone currenthalftone dd
  7. /_defaultblackgeneration currentblackgeneration dd
  8. /_defaultundercolorremoval currentundercolorremoval dd
  9. /_defaultcolortransfer [currentcolortransfer] dd
  10. /_processColors
  11. currentpagedevice /ProcessColorModel getifknown
  12. { << /DeviceGray [/Gray]
  13. /DeviceRGB [/Red /Green /Blue]
  14. /DeviceCMYK [/Cyan /Magenta /Yellow /Black]
  15. /DeviceCMY [/Cyan /Magenta /Yellow]
  16. /DeviceRGBK [/Red /Green /Blue /Black]
  17. >> exch getifknown {} {[]} ifelse }
  18. {[]}
  19. ifelse
  20. def
  21. /initialize {
  22. _defaulthalftone sethalftone
  23. /_defaultblackgeneration load setblackgeneration
  24. /_defaultundercolorremoval load setundercolorremoval
  25. _defaultcolortransfer aload pop setcolortransfer
  26. false setoverprint
  27. <</MaxFormItem 0>> setuserparams} bd
  28. /terminate { } bd
  29. /m/moveto ld
  30. /l/lineto ld
  31. /c/curveto ld
  32. /setSA/setstrokeadjust ld
  33. /sh
  34. { dup /DataSource known
  35. { dup begin
  36. DataSource type /filetype eq { DataSource resetfile } if
  37. end
  38. } if
  39. _op? setoverprint
  40. shfill
  41. } [/DataSource] bld
  42. /defineRes/defineresource ld
  43. /findRes/findresource ld
  44. currentglobal
  45. true systemdict /setglobal get exec
  46. [/Function /ExtGState /Form /Shading /FunctionDictionary /MadePattern /PatternPrototype /DataSource]
  47. { /Generic /Category findresource dup length dict copy /Category defineresource pop }
  48. forall
  49. systemdict /setglobal get exec
  50. /ri {
  51. /findcolorrendering isdefined?
  52. {
  53. mark exch
  54. findcolorrendering
  55. counttomark 2 eq
  56. { type /booleantype eq
  57. { dup type /nametype eq
  58. { dup /ColorRendering resourcestatus
  59. { pop pop
  60. dup /DefaultColorRendering ne
  61. {
  62. /ColorRendering findresource
  63. setcolorrendering
  64. } if
  65. } if
  66. } if
  67. } if
  68. } if
  69. cleartomark
  70. }
  71. { pop
  72. } ifelse
  73. } bd
  74. /_sfcs { _fcs setcolorspace } bind dd
  75. /_sscs { _scs setcolorspace } bind dd
  76. /_sfc {
  77. _fc aload pop
  78. _fp null eq
  79. { _op?
  80. { _opmode 1 eq
  81. { _fcs GetCSFamily /DeviceCMYK eq {DoNonZeroOverprint} if
  82. } if
  83. } if
  84. setcolor
  85. }
  86. { _fp setpattern }
  87. ifelse
  88. } bind dd
  89. /_ssc {
  90. _sc aload pop
  91. _sp null eq
  92. { _OP?
  93. { _opmode 1 eq
  94. { _scs GetCSFamily /DeviceCMYK eq {DoNonZeroOverprint} if
  95. } if
  96. } if
  97. setcolor
  98. }
  99. { _sp setpattern }
  100. ifelse
  101. } bind dd
  102. /CMYKDeviceNColorspaces [
  103. [/Separation /None /DeviceCMYK {0 0 0}] bind
  104. [/Separation (Black)
  105. /DeviceCMYK {0 0 0 4 -1 roll}] bind
  106. [/Separation (Yellow)
  107. /DeviceCMYK {0 0 3 -1 roll 0}] bind
  108. [/DeviceN [(Yellow) (Black)]
  109. /DeviceCMYK {0 0 4 2 roll}] bind
  110. [/Separation (Magenta)
  111. /DeviceCMYK {0 exch 0 0}] bind
  112. [/DeviceN [(Magenta) (Black)]
  113. /DeviceCMYK {0 3 1 roll 0 exch}] bind
  114. [/DeviceN [(Magenta) (Yellow)]
  115. /DeviceCMYK {0 3 1 roll 0}] bind
  116. [/DeviceN [(Magenta) (Yellow) (Black)]
  117. /DeviceCMYK {0 4 1 roll}] bind
  118. [/Separation (Cyan)
  119. /DeviceCMYK {0 0 0}] bind
  120. [/DeviceN [(Cyan) (Black)]
  121. /DeviceCMYK {0 0 3 -1 roll}] bind
  122. [/DeviceN [(Cyan) (Yellow)]
  123. /DeviceCMYK {0 exch 0}] bind
  124. [/DeviceN [(Cyan) (Yellow) (Black)]
  125. /DeviceCMYK {0 3 1 roll}] bind
  126. [/DeviceN [(Cyan) (Magenta)]
  127. /DeviceCMYK {0 0}] bind
  128. [/DeviceN [(Cyan) (Magenta) (Black)]
  129. /DeviceCMYK {0 exch}] bind
  130. [/DeviceN [(Cyan) (Magenta) (Yellow)]
  131. /DeviceCMYK {0}] bind
  132. [/DeviceCMYK] bind
  133. ] def
  134. /DoNonZeroOverprint {
  135. 6 dict begin
  136. /kk exch def
  137. /yy exch def
  138. /mm exch def
  139. /cc exch def
  140. /sum 0 def
  141. cc 0 ne {/sum sum 2#1000 or def cc} if
  142. mm 0 ne {/sum sum 2#0100 or def mm} if
  143. yy 0 ne {/sum sum 2#0010 or def yy} if
  144. kk 0 ne {/sum sum 2#0001 or def kk} if
  145. CMYKDeviceNColorspaces sum get setcolorspace
  146. sum 0 eq {0} if
  147. end
  148. } [/cc /mm /yy /kk /sum] bld
  149. /scn {
  150. dup type /dicttype eq
  151. { dup /_fp xdd
  152. dup /PatternType get 1 eq
  153. { /PaintType get 1 eq
  154. { /_fc _fillColors 0 get dd ilp }
  155. { /_fc _fillColors
  156. _fcs 1 get
  157. GetComps get dd
  158. sc
  159. }
  160. ifelse
  161. }
  162. { pop /_fc _fillColors 0 get dd ilp }
  163. ifelse
  164. }
  165. { sc }
  166. ifelse
  167. } bd
  168. /SCN {
  169. dup type /dicttype eq
  170. { dup /_sp xdd
  171. dup /PatternType get 1 eq
  172. { /PaintType get 1 eq
  173. { /_sc _strokeColors 0 get dd ilp }
  174. { /_sc _strokeColors _scs 1 get GetComps get dd
  175. SC
  176. }
  177. ifelse
  178. }
  179. { pop /_sc _strokeColors 0 get dd ilp }
  180. ifelse
  181. }
  182. { SC }
  183. ifelse
  184. } bd
  185. /gs {
  186. begin
  187. /SA here { setstrokeadjust } if
  188. /BG here { setblackgeneration } if
  189. /UCR here { setundercolorremoval } if
  190. /SM here { setsmoothness } if
  191. /FL here { i } if
  192. /RI here { ri } if
  193. /TR here
  194. {
  195. dup xcheck
  196. { settransfer }
  197. { aload pop setcolortransfer }
  198. ifelse
  199. } if
  200. /sethalftonephase isdefined? { /HTP here { sethalftonephase } if } if
  201. /HT here { sethalftone } if
  202. currentdict gsDI
  203. end
  204. } bd
  205. /sfc {
  206. _op? setoverprint
  207. _lp /fill ne {
  208. _sfcs
  209. _sfc
  210. /_lp /fill dd
  211. } if
  212. } dd
  213. /ssc {
  214. _OP? setoverprint
  215. _lp /stroke ne {
  216. _sscs
  217. _ssc
  218. /_lp /stroke dd
  219. } if
  220. } dd
  221. /f {
  222. { { sfc fill }
  223. {clipsave sfc fill cliprestore clip newpath icl ilp}
  224. {clipsave sfc fill cliprestore eoclip newpath icl ilp}
  225. } _doClip get exec
  226. } bd
  227. /f* {
  228. { { sfc eofill }
  229. {clipsave sfc eofill cliprestore clip newpath icl ilp}
  230. {clipsave sfc eofill cliprestore eoclip newpath icl ilp}
  231. } _doClip get exec
  232. } bd
  233. /S {
  234. { { ssc stroke }
  235. {clipsave ssc stroke cliprestore clip newpath icl ilp}
  236. {clipsave ssc stroke cliprestore eoclip newpath icl ilp}
  237. } _doClip get exec
  238. } bd
  239. /rf {
  240. { { sfc rectfill }
  241. {clipsave sfc rectfill cliprestore clip newpath icl ilp}
  242. {clipsave sfc rectfill cliprestore eoclip newpath icl ilp}
  243. } _doClip get exec
  244. } bd
  245. /every? {
  246. true
  247. 3 2 roll
  248. { 2 index exec not {pop false exit} if } forall
  249. exch pop
  250. } bd
  251. /knownColorants? {
  252. 3 dict begin
  253. /colorants exch def
  254. {
  255. /DeviceN /ColorSpaceFamily findresource pop
  256. /cpd currentpagedevice def
  257. /dc 10 dict def
  258. cpd /SeparationColorNames getifknown
  259. { { dc exch 0 put } forall } if
  260. _processColors { dc exch 0 put } forall
  261. colorants {dc exch known} every?
  262. } stopped
  263. { false }
  264. if
  265. end
  266. } [/colorants /dc /cpd] bld
  267. /makePat {
  268. gsave
  269. dup /Matrix get concat
  270. matrix makepattern
  271. grestore
  272. /MadePattern defineRes pop
  273. } bd
  274. %%EndResource
  275.