home *** CD-ROM | disk | FTP | other *** search
/ Hacker 27 / HACKER27.BIN / Infoexpress / AcroRd32.exe / PSPROCSET / 18 < prev    next >
Text File  |  2000-01-27  |  3KB  |  170 lines
  1. %%BeginResource: procset pdflev2
  2. %%Version: 4.0 5
  3. %%Copyright: Copyright 1987-1999 Adobe Systems Incorporated. All Rights Reserved.
  4. %%LanguageLevel: 2
  5. %%Title: PDF operators, with code specific for Level 2
  6. /_defaulthalftone currenthalftone dd
  7. /_defaultblackgeneration currentblackgeneration dd
  8. /_defaultundercolorremoval currentundercolorremoval dd
  9. /_defaultcolortransfer [currentcolortransfer] dd
  10. /initialize {
  11. _defaulthalftone sethalftone
  12. /_defaultblackgeneration load setblackgeneration
  13. /_defaultundercolorremoval load setundercolorremoval
  14. _defaultcolortransfer aload pop setcolortransfer
  15. false setoverprint
  16. <</MaxFormItem 0>> setuserparams
  17. } bd
  18. /terminate { } bd
  19. /m/moveto ld
  20. /l/lineto ld
  21. /c/curveto ld
  22. /setSA/setstrokeadjust ld
  23. /defineRes/defineresource ld
  24. /findRes/findresource ld
  25. currentglobal
  26. true systemdict /setglobal get exec
  27. [/Function /ExtGState /Form /Shading /FunctionDictionary /MadePattern /PatternPrototype /DataSource]
  28. { /Generic /Category findresource dup length dict copy /Category defineresource pop }
  29. forall
  30. systemdict /setglobal get exec
  31. /ri
  32. {
  33. /findcolorrendering isdefined?
  34. {
  35. mark exch
  36. findcolorrendering
  37. counttomark 2 eq
  38. { type /booleantype eq
  39. { dup type /nametype eq
  40. { dup /ColorRendering resourcestatus
  41. { pop pop
  42. dup /DefaultColorRendering ne
  43. {
  44. /ColorRendering findresource
  45. setcolorrendering
  46. } if
  47. } if
  48. } if
  49. } if
  50. } if
  51. cleartomark
  52. }
  53. { pop
  54. } ifelse
  55. } bd
  56. /_sfcs {_fcs setcolorspace} bind dd
  57. /_sscs {_scs setcolorspace} bind dd
  58. /_sfc
  59. {
  60. _fc aload pop
  61. _fp null eq
  62. { setcolor }
  63. { _fp setpattern }
  64. ifelse
  65. } bind dd
  66. /_ssc
  67. {
  68. _sc aload pop
  69. _sp null eq { setcolor} { _sp setpattern } ifelse
  70. } bind dd
  71. /scn {
  72. dup type /dicttype eq
  73. { dup /_fp xdd
  74. /PaintType get 1 eq
  75. { /_fc _fillColors 0 get dd ilp }
  76. { /_fc _fillColors
  77. _fcs 1 get
  78. GetComps get dd
  79. sc
  80. }
  81. ifelse
  82. }
  83. { sc }
  84. ifelse
  85. } bd
  86. /SCN {
  87. dup type /dicttype eq
  88. { dup /_sp xdd
  89. /PaintType get 1 eq
  90. { /_sc _strokeColors 0 get dd ilp }
  91. { /_sc _strokeColors _scs 1 get GetComps get dd
  92. SC
  93. }
  94. ifelse
  95. }
  96. { SC }
  97. ifelse
  98. } bd
  99. /gs
  100. {
  101. begin
  102. /SA here { setstrokeadjust } if
  103. /BG here { setblackgeneration } if
  104. /UCR here { setundercolorremoval } if
  105. /FL here { i } if
  106. /RI here { ri } if
  107. /TR here
  108. {
  109. dup xcheck
  110. { settransfer }
  111. { aload pop setcolortransfer }
  112. ifelse
  113. } if
  114. /sethalftonephase isdefined? { /HTP here { sethalftonephase } if } if
  115. /HT here { sethalftone } if
  116. currentdict gsDI
  117. end
  118. } bd
  119. /sfc {
  120. _op? setoverprint
  121. _lp /fill ne {
  122. _sfcs
  123. _sfc
  124. /_lp /fill dd
  125. } if
  126. } dd
  127. /ssc {
  128. _OP? setoverprint
  129. _lp /stroke ne {
  130. _sscs
  131. _ssc
  132. /_lp /stroke dd
  133. } if
  134. } dd
  135. /f {
  136. { { sfc fill }
  137. {gsave sfc fill grestore clip newpath icl ilp}
  138. {gsave sfc fill grestore eoclip newpath icl ilp}
  139. } _doClip get exec
  140. } bd
  141. /f* {
  142. { { sfc eofill }
  143. {gsave sfc eofill grestore clip newpath icl ilp}
  144. {gsave sfc eofill grestore eoclip newpath icl ilp}
  145. } _doClip get exec
  146. } bd
  147. /S {
  148. { { ssc stroke }
  149. {gsave ssc stroke grestore clip newpath icl ilp}
  150. {gsave ssc stroke grestore eoclip newpath icl ilp}
  151. } _doClip get exec
  152. } bd
  153. /rf {
  154. { { sfc rectfill }
  155. {gsave sfc rectfill grestore clip newpath icl ilp}
  156. {gsave sfc rectfill grestore eoclip newpath icl ilp}
  157. } _doClip get exec
  158. } bd
  159. /knownColorants? {
  160. pop false
  161. } bd
  162. /makePat {
  163. gsave
  164. dup /Matrix get concat
  165. matrix makepattern
  166. grestore
  167. /MadePattern defineRes pop
  168. } bd
  169. %%EndResource
  170.