home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 June / Chip_2001-06_cd1.bin / servis / reader / ar500enu.exe / Reader / AcroRd32.exe / PSPROCSET / 17 < prev    next >
Encoding:
Text File  |  2001-03-27  |  8.6 KB  |  485 lines
  1. %%BeginResource: procset pdflev15044
  2. %%Version: 5.0 11
  3. %%Copyright: Copyright 1987-2001 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. /docinitialize {
  8. PDF begin
  9. /_defaulthalftone
  10. /currenthalftone where
  11. { pop currenthalftone }
  12. { 4 dict dup begin
  13. currentscreen
  14. /SpotFunction exch def
  15. /Angle exch def
  16. /Frequency exch def
  17. /HalftoneType 1 def
  18. end }
  19. ifelse
  20. dd
  21. /currentcolortransfer where
  22. { pop /_defaultcolortransfer [ currentcolortransfer ] dd }
  23. { /_defaultcolortransfer [currenttransfer dup dup dup] dd }
  24. ifelse
  25. end
  26. } bd
  27. /initialize {
  28. /overprintstack null dd
  29. sep_ops begin
  30. 50 dict begin
  31. _defaulthalftone sethalftone
  32. } bd
  33. /terminate {
  34. end end
  35. } bd
  36. /currentcolortransfer where
  37. { pop }
  38. {
  39. /setcolortransfer
  40. {
  41. settransfer pop pop pop
  42. } bd
  43. } ifelse
  44. /pl {
  45. transform
  46. 0.25 sub round 0.25 add exch
  47. 0.25 sub round 0.25 add exch
  48. itransform
  49. } bd
  50. /m { _sa? { pl } if moveto } bd
  51. /l { _sa? { pl } if lineto } bd
  52. /c
  53. {
  54. _sa? {3 {pl 6 2 roll} repeat} if
  55. curveto
  56. } bd
  57. /ri/pop ld
  58. /setSA { /_sa? xdd } bd
  59. /re
  60. {
  61. _sa?
  62. {
  63. 8 dict begin
  64. /:h exch def
  65. /:w exch def
  66. /:y exch def
  67. /:x exch def
  68. :x :y pl
  69. /:ymin exch def /:xmin exch def
  70. :x :w add :y :h add pl
  71. /:ymax exch def /:xmax exch def
  72. :xmin :ymin moveto
  73. :xmax :ymin lineto
  74. :xmax :ymax lineto
  75. :xmin :ymax lineto
  76. closepath
  77. end
  78. }
  79. {
  80. 4 2 roll moveto
  81. 1 index 0 rlineto
  82. 0 exch rlineto
  83. neg 0 rlineto
  84. closepath
  85. } ifelse
  86. } bd
  87. /q
  88. {
  89. gsave
  90. [currentoverprint overprintstack] /overprintstack xdd
  91. }
  92. [/overprintstack] bld
  93. /Q
  94. {
  95. overprintstack aload pop /overprintstack xdd setoverprint
  96. grestore
  97. }
  98. [/overprintstack] bld
  99. /AlmostFull?
  100. { dup maxlength exch length sub 2 le
  101. } bd
  102. /Expand
  103. { 1 index maxlength mul cvi dict
  104. dup begin exch { def } forall end
  105. } bd
  106. /xput
  107. { 3 2 roll
  108. dup 3 index known not
  109. { dup AlmostFull? { 1.5 Expand } if
  110. } if
  111. dup 4 2 roll put
  112. } bd
  113. /defineRes
  114. { _categories 1 index known not
  115. { /_categories _categories 2 index 10 dict xput store
  116. } if
  117. _categories exch 2 copy get 5 -1 roll 4 index xput put
  118. } bd
  119. /findRes {
  120. _categories exch get exch get
  121. } bd
  122. /L1setcolor {
  123. aload length
  124. dup 0 eq
  125. { pop .5 setgray }
  126. { dup 1 eq
  127. { pop setgray }
  128. { 3 eq
  129. { setrgbcolor }
  130. { setcmykcolor }
  131. ifelse }
  132. ifelse }
  133. ifelse
  134. } bind dd
  135. /concattransferfuncs {
  136. [ 3 1 roll /exec load exch /exec load ] cvx
  137. } bd
  138. /concatandsettransfer {
  139. /_defaulttransfer load concattransferfuncs settransfer
  140. } bd
  141. /concatandsetcolortransfer {
  142. colorplate 0 eq
  143. {
  144. _defaultcolortransfer aload pop
  145. 8 -1 roll 5 -1 roll concattransferfuncs 7 1 roll
  146. 6 -1 roll 4 -1 roll concattransferfuncs 5 1 roll
  147. 4 -1 roll 3 -1 roll concattransferfuncs 3 1 roll
  148. concattransferfuncs
  149. setcolortransfer
  150. } if
  151. colorplate 1 ge colorplate 4 le and
  152. {
  153. 4 colorplate sub index 4 { exch pop } repeat
  154. concatandsettransfer
  155. } if
  156. colorplate 5 ge
  157. {
  158. 0 index 4 { exch pop } repeat
  159. concatandsettransfer
  160. } if
  161. } bd
  162. /tn5044sethalftone
  163. {
  164. begin
  165. HalftoneType 5 eq
  166. { [/Default /Cyan /Magenta /Yellow /Black /Default /Default /Default]
  167. colorplate get
  168. here not {
  169. /Default here not { currentdict } if
  170. } if
  171. }
  172. { currentdict }
  173. ifelse
  174. end
  175. begin
  176. /TransferFunction here
  177. {
  178. concatandsettransfer
  179. currentdict dup length dict
  180. begin
  181. {
  182. 1 index /TransferFunction ne { def } { pop pop } ifelse
  183. } forall
  184. currentdict
  185. end
  186. }
  187. {
  188. currentdict
  189. } ifelse
  190. end
  191. sethalftone
  192. } bd
  193. /paintimage
  194. {
  195. colorplate 0 eq
  196. {
  197. { {currentfile cyanstr readstring pop}
  198. {currentfile magentastr readstring pop}
  199. {currentfile yellowstr readstring pop}
  200. {currentfile blackstr readstring pop
  201. currentfile graystr readstring pop pop}
  202. }
  203. { {currentfile cyanstr readhexstring pop}
  204. {currentfile magentastr readhexstring pop}
  205. {currentfile yellowstr readhexstring pop}
  206. {currentfile blackstr readhexstring pop
  207. currentfile graystr readhexstring pop pop}
  208. } ifelse
  209. true 4 colorimage
  210. }
  211. {
  212. 3 dict begin
  213. /binaryOK exch def
  214. [
  215. 1 1 5 {
  216. dup
  217. /currentfile cvx
  218. [ /cyanstr /magentastr /yellowstr /blackstr /graystr ]
  219. 3 -1 roll 1 sub get cvx
  220. binaryOK { /readstring } { /readhexstring } ifelse cvx
  221. /pop cvx
  222. 5 -1 roll
  223. colorplate dup 5 gt { pop 5 } if
  224. eq not { /pop cvx } if
  225. } for
  226. ] cvx bind
  227. end
  228. [
  229. colorplate 6 eq {
  230. /pop cvx
  231. negativecolorplate { 0 } { 1 } ifelse
  232. } if
  233. colorplate 4 le
  234. {
  235. 1 /exch cvx /sub cvx
  236. } if
  237. colorplate 6 ne
  238. {
  239. systemdict /currenttransfer get exec
  240. aload pop
  241. } if
  242. ] cvx
  243. gsave
  244. systemdict /settransfer get exec
  245. systemdict /image get exec
  246. grestore
  247. } ifelse
  248. } bd
  249. /getrampcolor {
  250. /indx exch def
  251. 0 1 NumComp 1 sub {
  252. dup
  253. Samples exch get
  254. dup type /stringtype eq { indx get } if
  255. exch
  256. Scaling exch get aload pop
  257. 3 1 roll
  258. mul add
  259. } for
  260. setcolor
  261. } bd
  262. /GenStrips {
  263. 40 dict begin
  264. /background exch def
  265. /ext1 exch def
  266. /ext0 exch def
  267. /BBox exch def
  268. /y2 exch def
  269. /x2 exch def
  270. /y1 exch def
  271. /x1 exch def
  272. /rampdict exch def
  273. gsave
  274. BBox length 0 gt {
  275. BBox 0 get BBox 1 get
  276. BBox 2 get BBox 0 get sub
  277. BBox 3 get BBox 1 get sub
  278. rectclip
  279. } if
  280. x1 x2 eq
  281. {
  282. y1 y2 lt {/theta 90 def}{/theta 270 def} ifelse
  283. }
  284. {
  285. /slope y2 y1 sub x2 x1 sub div def
  286. /theta slope 1 atan def
  287. x2 x1 lt y2 y1 ge and { /theta theta 180 sub def} if
  288. x2 x1 lt y2 y1 le and { /theta theta 180 add def} if
  289. }
  290. ifelse
  291. gsave
  292. clippath
  293. x1 y1 translate
  294. theta rotate
  295. pathbbox
  296. /yMax exch def
  297. /xMax exch def
  298. /yMin exch def
  299. /xMin exch def
  300. grestore
  301. xMax xMin eq yMax yMin eq or
  302. {
  303. grestore
  304. end
  305. }
  306. {
  307. rampdict begin
  308. 20 dict begin
  309. background length 0 gt { background aload pop setcolor gsave clippath fill grestore } if
  310. gsave
  311. x1 y1 translate
  312. theta rotate
  313. /xStart 0 def
  314. /xEnd x2 x1 sub dup mul y2 y1 sub dup mul add 0.5 exp def
  315. /ySpan yMax yMin sub def
  316. /numsteps NumSamples def
  317. /rampIndxInc 1 def
  318. /subsampling false def
  319. xStart 0 transform
  320. xEnd 0 transform
  321. 3 -1 roll
  322. sub dup mul
  323. 3 1 roll
  324. sub dup mul
  325. add 0.5 exp 72 div
  326. 0 72 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
  327. 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
  328. 1 index 1 index lt { exch } if pop
  329. mul
  330. /numpix exch def
  331. numpix 0 ne
  332. {
  333. NumSamples numpix div 0.5 gt
  334. {
  335. /numsteps numpix 2 div round cvi dup 1 le { pop 2 } if def
  336. /rampIndxInc NumSamples 1 sub numsteps div def
  337. /subsampling true def
  338. } if
  339. } if
  340. ext0 {
  341. 0 getrampcolor
  342. xMin xStart lt
  343. { xMin yMin xMin neg ySpan rectfill } if
  344. } if
  345. /xInc xEnd xStart sub numsteps div def
  346. /x xStart def
  347. 0
  348. numsteps
  349. {
  350. dup
  351. subsampling { round cvi } if
  352. getrampcolor
  353. x yMin xInc ySpan rectfill
  354. /x x xInc add def
  355. rampIndxInc add
  356. }
  357. repeat
  358. pop
  359. ext1 {
  360. xMax xEnd gt
  361. { xEnd yMin xMax xEnd sub ySpan rectfill } if
  362. } if
  363. grestore
  364. grestore
  365. end
  366. end
  367. end
  368. } ifelse
  369. } bd
  370. /RadialShade {
  371. 40 dict begin
  372. /background exch def
  373. /ext1 exch def
  374. /ext0 exch def
  375. /BBox exch def
  376. /r2 exch def
  377. /c2y exch def
  378. /c2x exch def
  379. /r1 exch def
  380. /c1y exch def
  381. /c1x exch def
  382. /rampdict exch def
  383. gsave
  384. BBox length 0 gt {
  385. BBox 0 get BBox 1 get
  386. BBox 2 get BBox 0 get sub
  387. BBox 3 get BBox 1 get sub
  388. rectclip
  389. } if
  390. gsave
  391. clippath
  392. pathbbox
  393. /BByMax exch def
  394. /BBxMax exch def
  395. /BByMin exch def
  396. /BBxMin exch def
  397. grestore
  398. BBxMax BBxMin eq BByMax BByMin eq or
  399. {
  400. grestore
  401. end
  402. }
  403. {
  404. rampdict begin
  405. 20 dict begin
  406. background length 0 gt { background aload pop setcolor gsave clippath fill grestore } if
  407. /areaOfConcern
  408. BBxMin BByMin BBxMax BByMax
  409. BBxMin BByMin
  410. BBxMax BBxMin sub 0
  411. 0 BByMax BByMin sub
  412. BBxMin BBxMax sub 0
  413. 12 packedarray
  414. < 0B 00 01 04 04 04 0A>
  415. 2 packedarray
  416. def
  417. c1x c2x sub dup mul
  418. c1y c2y sub dup mul
  419. add 0.5 exp
  420. r1 add
  421. r2 sub
  422. abs
  423. 0 dtransform
  424. dup mul exch dup mul add 0.5 exp 72 div
  425. 0 72 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
  426. 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
  427. 1 index 1 index lt { exch } if pop
  428. /hires exch def
  429. hires mul
  430. /numpix exch def
  431. /numsteps NumSamples def
  432. /rampIndxInc 1 def
  433. /subsampling false def
  434. numpix 0 ne
  435. {
  436. NumSamples numpix div 0.5 gt
  437. {
  438. /numsteps numpix 2 div round cvi dup 1 le { pop 2 } if def
  439. /rampIndxInc NumSamples 1 sub numsteps div def
  440. /subsampling true def
  441. } if
  442. } if
  443. /xInc c2x c1x sub numsteps div def
  444. /yInc c2y c1y sub numsteps div def
  445. /rInc r2 r1 sub numsteps div def
  446. /cx c1x def
  447. /cy c1y def
  448. /radius r1 def
  449. newpath
  450. xInc 0 eq yInc 0 eq rInc 0 eq and and
  451. {
  452. 0 getrampcolor
  453. cx cy radius 0 360 arc
  454. stroke
  455. NumSamples 1 sub getrampcolor
  456. cx cy radius 72 hires div add 0 360 arc
  457. 0 setlinewidth
  458. stroke
  459. }
  460. {
  461. 0
  462. numsteps
  463. {
  464. dup
  465. subsampling { round cvi } if
  466. getrampcolor
  467. cx cy radius 0 360 arc
  468. /cx cx xInc add def
  469. /cy cy yInc add def
  470. /radius radius rInc add def
  471. cx cy radius 360 0 arcn
  472. eofill
  473. rampIndxInc add
  474. }
  475. repeat
  476. pop
  477. } ifelse
  478. grestore
  479. end
  480. end
  481. end
  482. } ifelse
  483. } bd
  484. %%EndResource
  485.