home *** CD-ROM | disk | FTP | other *** search
/ The See Clearly Method / TheSeeClearlyMethod.iso / Acrobat / reader.exe / PSPROCSET / 17 < prev    next >
Encoding:
Text File  |  2000-01-27  |  4.8 KB  |  267 lines
  1. %%BeginResource: procset pdflev15044
  2. %%Version: 4.0 5
  3. %%Copyright: Copyright 1987-1999 Adobe Systems Incorporated. All Rights Reserved.
  4. %%LanguageLevel: 1
  5. %%Title: PDF operators, Level 1, with emulated separations (TN 5044)
  6. /_ColorSep5044? true dd
  7. /_defaulthalftone
  8. /currenthalftone where
  9. { pop currenthalftone }
  10. { 4 dict dup begin
  11. currentscreen
  12. /SpotFunction exch def
  13. /Angle exch def
  14. /Frequency exch def
  15. /HalftoneType 1 def
  16. end }
  17. ifelse
  18. dd
  19. /currentcolortransfer where
  20. { pop /_defaultcolortransfer [ currentcolortransfer ] dd }
  21. { /setcolortransfer {
  22. settransfer pop pop pop
  23. } bd
  24. /_defaultcolortransfer [currenttransfer dup dup dup] dd
  25. }
  26. ifelse
  27. /initialize {
  28. sep_ops begin
  29. 50 dict begin
  30. _defaulthalftone sethalftone
  31. } bd
  32. /terminate {
  33. end end
  34. } bd
  35. /pl {
  36. transform
  37. 0.25 sub round 0.25 add exch
  38. 0.25 sub round 0.25 add exch
  39. itransform
  40. } bd
  41. /m { _sa? { pl } if moveto } bd
  42. /l { _sa? { pl } if lineto } bd
  43. /c { _sa? { pl } if curveto } bd
  44. /setSA { /_sa? xdd } bd
  45. /AlmostFull?
  46. { dup maxlength exch length sub 2 le
  47. } bd
  48. /Expand
  49. { 1 index maxlength mul cvi dict
  50. dup begin exch { def } forall end
  51. } bd
  52. /xput
  53. { 3 2 roll
  54. dup 3 index known not
  55. { dup AlmostFull? { 1.5 Expand } if
  56. } if
  57. dup 4 2 roll put
  58. } bd
  59. /defineRes
  60. { _categories 1 index known not
  61. { /_categories _categories 2 index 10 dict xput store
  62. } if
  63. _categories exch 2 copy get 5 -1 roll 4 index xput put
  64. } bd
  65. /findRes {
  66. _categories exch get exch get
  67. } bd
  68. /ri/pop ld
  69. /L1setcolor {
  70. aload length
  71. dup 0 eq
  72. { pop .5 setgray }
  73. { dup 1 eq
  74. { pop setgray }
  75. { 3 eq
  76. { setrgbcolor }
  77. { setcmykcolor }
  78. ifelse }
  79. ifelse }
  80. ifelse
  81. } bind dd
  82. /_sfcs { } dd
  83. /_sscs { } dd
  84. /scn { sc } bd
  85. /SCN { SC } bd
  86. /rf {re f} bd
  87. /concattransferfuncs {
  88. [ 3 1 roll /exec load exch /exec load ] cvx
  89. } bd
  90. /concatandsettransfer {
  91. /_defaulttransfer load concattransferfuncs settransfer
  92. } bd
  93. /concatandsetcolortransfer {
  94. colorplate 0 eq
  95. {
  96. _defaultcolortransfer aload pop
  97. 8 -1 roll 5 -1 roll concattransferfuncs 7 1 roll
  98. 6 -1 roll 4 -1 roll concattransferfuncs 5 1 roll
  99. 4 -1 roll 3 -1 roll concattransferfuncs 3 1 roll
  100. concattransferfuncs
  101. setcolortransfer
  102. } if
  103. colorplate 1 ge colorplate 4 le and
  104. {
  105. 4 colorplate sub index 4 { exch pop } repeat
  106. concatandsettransfer
  107. } if
  108. colorplate 5 ge
  109. {
  110. 0 index 4 { exch pop } repeat
  111. concatandsettransfer
  112. } if
  113. } bd
  114. /tn5044sethalftone
  115. {
  116. begin
  117. HalftoneType 5 eq
  118. { [/Default /Cyan /Magenta /Yellow /Black /Default /Default /Default]
  119. colorplate get
  120. here not {
  121. /Default here not { currentdict } if
  122. } if
  123. }
  124. { currentdict }
  125. ifelse
  126. end
  127. begin
  128. /TransferFunction here
  129. {
  130. concatandsettransfer
  131. currentdict dup length dict
  132. begin
  133. {
  134. 1 index /TransferFunction ne { def } { pop pop } ifelse
  135. } forall
  136. currentdict
  137. end
  138. }
  139. {
  140. currentdict
  141. } ifelse
  142. end
  143. sethalftone
  144. } bd
  145. /gs
  146. {
  147. begin
  148. /SA here { /_sa? xdd } if
  149. /TR here
  150. {
  151. dup xcheck
  152. { concatandsettransfer }
  153. { aload pop concatandsetcolortransfer }
  154. ifelse
  155. } if
  156. /HT here { tn5044sethalftone } if
  157. /FL here { i } if
  158. currentdict gsDI
  159. end
  160. } bd
  161. /csfamily {
  162. dup type /arraytype eq { 0 get } if
  163. } bd
  164. /_sfc
  165. {
  166. _fp null eq
  167. { _fcs type /arraytype eq
  168. {_fcs 0 get /Separation eq
  169. {
  170. _fcs 1 get /All eq
  171. {
  172. _fc aload pop 1 exch sub
  173. /setseparationgray where pop begin setseparationgray end
  174. }
  175. { _fcs 2 get csfamily /DeviceCMYK eq
  176. {
  177. 1 _fcs 3 get exec _fcs 1 get
  178. /findcmykcustomcolor where pop begin findcmykcustomcolor end
  179. _fc aload pop
  180. /setcustomcolor where pop begin setcustomcolor end
  181. }
  182. {
  183. _fc aload pop 1 exch sub setgray
  184. }
  185. ifelse
  186. }
  187. ifelse
  188. }
  189. { _fc L1setcolor }
  190. ifelse
  191. }
  192. { _fc L1setcolor }
  193. ifelse
  194. }
  195. { _fc L1setcolor }
  196. ifelse
  197. } bind dd
  198. /_ssc
  199. {
  200. _sp null eq
  201. { _scs type /arraytype eq
  202. {_scs 0 get /Separation eq
  203. {
  204. _scs 1 get /All eq
  205. {
  206. _sc aload pop 1 exch sub
  207. /setseparationgray where pop begin setseparationgray end
  208. }
  209. { _scs 2 get csfamily /DeviceCMYK eq
  210. {
  211. 1 _scs 3 get exec _scs 1 get
  212. /findcmykcustomcolor where pop begin findcmykcustomcolor end
  213. _sc aload pop
  214. /setcustomcolor where pop begin setcustomcolor end
  215. }
  216. {_sc aload pop 1 exch sub setgray
  217. }
  218. ifelse
  219. }
  220. ifelse
  221. }
  222. { _sc L1setcolor }
  223. ifelse
  224. }
  225. { _sc L1setcolor }
  226. ifelse
  227. }
  228. { _sc L1setcolor }
  229. ifelse
  230. } bind dd
  231. /sfc {
  232. _op? setoverprint
  233. _lp /fill ne {
  234. _sfcs
  235. _sfc
  236. /_lp /fill dd
  237. } if
  238. } dd
  239. /ssc {
  240. _OP? setoverprint
  241. _lp /stroke ne {
  242. _sscs
  243. _ssc
  244. /_lp /stroke dd
  245. } if
  246. } dd
  247. /f {
  248. { { sfc fill }
  249. {gsave sfc fill grestore clip newpath icl ilp}
  250. {gsave sfc fill grestore eoclip newpath icl ilp}
  251. } _doClip get exec
  252. } bd
  253. /f* {
  254. { { sfc eofill }
  255. {gsave sfc eofill grestore clip newpath icl ilp}
  256. {gsave sfc eofill grestore eoclip newpath icl ilp}
  257. } _doClip get exec
  258. } bd
  259. /S {
  260. { { ssc stroke }
  261. {gsave ssc stroke grestore clip newpath icl ilp}
  262. {gsave ssc stroke grestore eoclip newpath icl ilp}
  263. } _doClip get exec
  264. } bd
  265. /rf {re f} bd
  266. %%EndResource
  267.