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