home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 August - Disc 3 / chip_20018103_hu.iso / segedlet / rp500enu.exe / Reader / AcroRd32.exe / PSPROCSET / 18 < prev    next >
Encoding:
Text File  |  2001-03-27  |  7.3 KB  |  395 lines
  1. %%BeginResource: procset pdflev2
  2. %%Version: 5.0 14
  3. %%Copyright: Copyright 1987-2001 Adobe Systems Incorporated. All Rights Reserved.
  4. %%LanguageLevel: 2
  5. %%Title: PDF operators, with code specific for Level 2
  6. /docinitialize {
  7. PDF begin
  8. /_defaulthalftone currenthalftone dd
  9. /_defaultblackgeneration currentblackgeneration dd
  10. /_defaultundercolorremoval currentundercolorremoval dd
  11. /_defaultcolortransfer [currentcolortransfer] dd
  12. /_defaulttransfer currenttransfer dd
  13. end
  14. PDFVars /docSetupDone true put
  15. } bd
  16. /initialize {
  17. PDFVars /docSetupDone get {
  18. _defaulthalftone sethalftone
  19. /_defaultblackgeneration load setblackgeneration
  20. /_defaultundercolorremoval load setundercolorremoval
  21. _defaultcolortransfer aload pop setcolortransfer
  22. } if
  23. false setoverprint
  24. } bd
  25. /terminate { } bd
  26. /c /curveto ld
  27. /cs /setcolorspace ld
  28. /l /lineto ld
  29. /m /moveto ld
  30. /q /gsave ld
  31. /Q /grestore ld
  32. /sc /setcolor ld
  33. /setSA/setstrokeadjust ld
  34. /re {
  35. 4 2 roll m
  36. 1 index 0 rlineto
  37. 0 exch rlineto
  38. neg 0 rlineto
  39. h
  40. } bd
  41. /concattransferfuncs {
  42. [ 3 1 roll /exec load exch /exec load ] cvx
  43. } bd
  44. /concatandsettransfer {
  45. /_defaulttransfer load concattransferfuncs settransfer
  46. } bd
  47. /concatandsetcolortransfer {
  48. _defaultcolortransfer aload pop
  49. 8 -1 roll 5 -1 roll concattransferfuncs 7 1 roll
  50. 6 -1 roll 4 -1 roll concattransferfuncs 5 1 roll
  51. 4 -1 roll 3 -1 roll concattransferfuncs 3 1 roll
  52. concattransferfuncs
  53. setcolortransfer
  54. } bd
  55. /defineRes/defineresource ld
  56. /findRes/findresource ld
  57. currentglobal
  58. true systemdict /setglobal get exec
  59. [/Function /ExtGState /Form /Shading /FunctionDictionary /MadePattern /PatternPrototype /DataSource /Image]
  60. { /Generic /Category findresource dup length dict copy /Category defineresource pop }
  61. forall
  62. systemdict /setglobal get exec
  63. /ri
  64. {
  65. /findcolorrendering isdefined?
  66. {
  67. mark exch
  68. findcolorrendering
  69. counttomark 2 eq
  70. { type /booleantype eq
  71. { dup type /nametype eq
  72. { dup /ColorRendering resourcestatus
  73. { pop pop
  74. dup /DefaultColorRendering ne
  75. {
  76. /ColorRendering findresource
  77. setcolorrendering
  78. } if
  79. } if
  80. } if
  81. } if
  82. } if
  83. cleartomark
  84. }
  85. { pop
  86. } ifelse
  87. } bd
  88. /knownColorants? {
  89. pop false
  90. } bd
  91. /getrampcolor {
  92. /indx exch def
  93. 0 1 NumComp 1 sub {
  94. dup
  95. Samples exch get
  96. dup type /stringtype eq { indx get } if
  97. exch
  98. Scaling exch get aload pop
  99. 3 1 roll
  100. mul add
  101. } for
  102. setcolor
  103. } bd
  104. /GenStrips {
  105. 40 dict begin
  106. /background exch def
  107. /ext1 exch def
  108. /ext0 exch def
  109. /BBox exch def
  110. /y2 exch def
  111. /x2 exch def
  112. /y1 exch def
  113. /x1 exch def
  114. /rampdict exch def
  115. gsave
  116. BBox length 0 gt {
  117. BBox 0 get BBox 1 get
  118. BBox 2 get BBox 0 get sub
  119. BBox 3 get BBox 1 get sub
  120. rectclip
  121. } if
  122. x1 x2 eq
  123. {
  124. y1 y2 lt {/theta 90 def}{/theta 270 def} ifelse
  125. }
  126. {
  127. /slope y2 y1 sub x2 x1 sub div def
  128. /theta slope 1 atan def
  129. x2 x1 lt y2 y1 ge and { /theta theta 180 sub def} if
  130. x2 x1 lt y2 y1 le and { /theta theta 180 add def} if
  131. }
  132. ifelse
  133. gsave
  134. clippath
  135. x1 y1 translate
  136. theta rotate
  137. pathbbox
  138. /yMax exch def
  139. /xMax exch def
  140. /yMin exch def
  141. /xMin exch def
  142. grestore
  143. xMax xMin eq yMax yMin eq or
  144. {
  145. grestore
  146. end
  147. }
  148. {
  149. rampdict begin
  150. background length 0 gt { background aload pop setcolor gsave clippath fill grestore } if
  151. gsave
  152. x1 y1 translate
  153. theta rotate
  154. /xStart 0 def
  155. /xEnd x2 x1 sub dup mul y2 y1 sub dup mul add 0.5 exp def
  156. /ySpan yMax yMin sub def
  157. /numsteps NumSamples def
  158. /rampIndxInc 1 def
  159. /subsampling false def
  160. xStart 0 transform
  161. xEnd 0 transform
  162. 3 -1 roll
  163. sub dup mul
  164. 3 1 roll
  165. sub dup mul
  166. add 0.5 exp 72 div
  167. 0 72 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
  168. 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
  169. 1 index 1 index lt { exch } if pop
  170. mul
  171. /numpix exch def
  172. numpix 0 ne
  173. {
  174. NumSamples numpix div 0.5 gt
  175. {
  176. /numsteps numpix 2 div round cvi dup 1 le { pop 2 } if def
  177. /rampIndxInc NumSamples 1 sub numsteps div def
  178. /subsampling true def
  179. } if
  180. } if
  181. ext0 {
  182. 0 getrampcolor
  183. xMin xStart lt
  184. { xMin yMin xMin neg ySpan rectfill } if
  185. } if
  186. /xInc xEnd xStart sub numsteps div def
  187. /x xStart def
  188. 0
  189. numsteps
  190. {
  191. dup
  192. subsampling { round cvi } if
  193. getrampcolor
  194. x yMin xInc ySpan rectfill
  195. /x x xInc add def
  196. rampIndxInc add
  197. }
  198. repeat
  199. pop
  200. ext1 {
  201. xMax xEnd gt
  202. { xEnd yMin xMax xEnd sub ySpan rectfill } if
  203. } if
  204. grestore
  205. grestore
  206. end
  207. end
  208. } ifelse
  209. } bd
  210. /RadialShade {
  211. 40 dict begin
  212. /background exch def
  213. /ext1 exch def
  214. /ext0 exch def
  215. /BBox exch def
  216. /r2 exch def
  217. /c2y exch def
  218. /c2x exch def
  219. /r1 exch def
  220. /c1y exch def
  221. /c1x exch def
  222. /rampdict exch def
  223. gsave
  224. BBox length 0 gt {
  225. BBox 0 get BBox 1 get
  226. BBox 2 get BBox 0 get sub
  227. BBox 3 get BBox 1 get sub
  228. rectclip
  229. } if
  230. gsave
  231. clippath
  232. pathbbox
  233. /BByMax exch def
  234. /BBxMax exch def
  235. /BByMin exch def
  236. /BBxMin exch def
  237. grestore
  238. BBxMax BBxMin eq BByMax BByMin eq or
  239. {
  240. grestore
  241. end
  242. }
  243. {
  244. rampdict begin
  245. background length 0 gt { background aload pop setcolor gsave clippath fill grestore } if
  246. /areaOfConcern
  247. BBxMin BByMin BBxMax BByMax
  248. BBxMin BByMin
  249. BBxMax BBxMin sub 0
  250. 0 BByMax BByMin sub
  251. BBxMin BBxMax sub 0
  252. 12 packedarray
  253. < 0B 00 01 04 04 04 0A>
  254. 2 packedarray
  255. def
  256. c1x c2x sub dup mul
  257. c1y c2y sub dup mul
  258. add 0.5 exp
  259. r1 add
  260. r2 sub
  261. abs
  262. 0 dtransform
  263. dup mul exch dup mul add 0.5 exp 72 div
  264. 0 72 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
  265. 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
  266. 1 index 1 index lt { exch } if pop
  267. /hires exch def
  268. hires mul
  269. /numpix exch def
  270. /numsteps NumSamples def
  271. /rampIndxInc 1 def
  272. /subsampling false def
  273. numpix 0 ne
  274. {
  275. NumSamples numpix div 0.5 gt
  276. {
  277. /numsteps numpix 2 div round cvi dup 1 le { pop 2 } if def
  278. /rampIndxInc NumSamples 1 sub numsteps div def
  279. /subsampling true def
  280. } if
  281. } if
  282. /xInc c2x c1x sub numsteps div def
  283. /yInc c2y c1y sub numsteps div def
  284. /rInc r2 r1 sub numsteps div def
  285. ext0 {
  286. 0 getrampcolor
  287. r1 r2 eq c1x c2x eq and c1y c2y eq and
  288. {
  289. c1x c1y r1 0 360 arc fill
  290. }
  291. {
  292. r1 r2 lt
  293. {
  294. /backsteps r1 rInc div floor def
  295. /cx c1x xInc backsteps mul sub def
  296. /cy c1y yInc backsteps mul sub def
  297. /radius r1 rInc backsteps mul sub def
  298. newpath
  299. {
  300. cx cy radius 0 360 arc
  301. fill
  302. radius r1 ge { exit} if
  303. /radius radius rInc add def
  304. /cx cx xInc add def
  305. /cy cy yInc add def
  306. } loop
  307. }
  308. {
  309. /cx c1x def
  310. /cy c1y def
  311. /radius r1 def
  312. newpath
  313. {
  314. cx cy radius 360 0 arcn
  315. /cx cx xInc sub def
  316. /cy cy yInc sub def
  317. /radius radius rInc sub def
  318. cx cy radius 0 360 arc
  319. areaOfConcern ineofill not { exit } if
  320. eofill
  321. } loop
  322. } ifelse
  323. } ifelse
  324. } if
  325. /cx c1x def
  326. /cy c1y def
  327. /radius r1 def
  328. newpath
  329. xInc 0 eq yInc 0 eq rInc 0 eq and and
  330. {
  331. 0 getrampcolor
  332. cx cy radius 0 360 arc
  333. stroke
  334. NumSamples 1 sub getrampcolor
  335. cx cy radius 72 hires div add 0 360 arc
  336. 0 setlinewidth
  337. stroke
  338. }
  339. {
  340. 0
  341. numsteps
  342. {
  343. dup
  344. subsampling { round cvi } if
  345. getrampcolor
  346. cx cy radius 0 360 arc
  347. /cx cx xInc add def
  348. /cy cy yInc add def
  349. /radius radius rInc add def
  350. cx cy radius 360 0 arcn
  351. eofill
  352. rampIndxInc add
  353. }
  354. repeat
  355. pop
  356. } ifelse
  357. ext1 {
  358. r2 r1 le
  359. {
  360. r2 r1 eq c1x c2x eq and c1y c2y eq and
  361. {
  362. c1x c1y r1 0 360 arc
  363. areaOfConcern uappend
  364. eofill
  365. }
  366. {
  367. {
  368. cx cy radius 0 360 arc
  369. areaOfConcern infill not { exit } if
  370. fill
  371. /radius radius rInc add def
  372. /cx cx xInc add def
  373. /cy cy yInc add def
  374. } loop
  375. } ifelse
  376. }
  377. {
  378. {
  379. cx cy radius 0 360 arc
  380. /cx cx xInc add def
  381. /cy cy yInc add def
  382. /radius radius rInc add def
  383. cx cy radius 360 0 arcn
  384. areaOfConcern ineofill not { exit } if
  385. eofill
  386. } loop
  387. } ifelse
  388. } if
  389. grestore
  390. end
  391. end
  392. } ifelse
  393. } bd
  394. %%EndResource
  395.