home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 June / Chip_2001-06_cd1.bin / servis / reader / ar500enu.exe / Reader / AcroRd32.exe / PSPROCSET / 6 < prev    next >
Encoding:
Text File  |  2001-03-27  |  2.6 KB  |  147 lines
  1. %%BeginResource: procset pdf
  2. %%Version: 5.0 6
  3. %%Copyright: Copyright 1998-2001 Adobe Systems Incorporated. All Rights Reserved.
  4. %%Title: General operators for PDF, common to all Language Levels.
  5. /cm { matrix astore concat } bd
  6. /d /setdash ld
  7. /f /fill ld
  8. /h /closepath ld
  9. /i {dup 0 eq {pop _defaultflatness} if setflat} bd
  10. /j /setlinejoin ld
  11. /J /setlinecap ld
  12. /M /setmiterlimit ld
  13. /n /newpath ld
  14. /S /stroke ld
  15. /w /setlinewidth ld
  16. /W /clip ld
  17. /initgs {
  18. 0 setgray
  19. [] 0 d
  20. 0 j
  21. 0 J
  22. 10 M
  23. 1 w
  24. false setSA
  25. /_defaulttransfer load settransfer
  26. 0 i
  27. /RelativeColorimetric ri
  28. newpath
  29. } bd
  30. /int {
  31. dup 2 index sub 3 index 5 index sub div 6 -2 roll sub mul
  32. exch pop add exch pop
  33. } bd
  34. /limit {
  35. dup 2 index le { exch } if pop
  36. dup 2 index ge { exch } if pop
  37. } bd
  38. /domainClip {
  39. Domain aload pop 3 2 roll
  40. limit
  41. } [/Domain] bld
  42. /applyInterpFunc {
  43. 0 1 DimOut 1 sub
  44. {
  45. dup C0 exch get exch
  46. dup C1 exch get exch
  47. 3 1 roll
  48. 1 index sub
  49. 3 index
  50. N exp mul add
  51. exch
  52. currentdict /Range_lo known
  53. {
  54. dup Range_lo exch get exch
  55. Range_hi exch get
  56. 3 2 roll limit
  57. }
  58. {
  59. pop
  60. }
  61. ifelse
  62. exch
  63. } for
  64. pop
  65. } [/DimOut /C0 /C1 /N /Range_lo /Range_hi] bld
  66. /encodeInput {
  67. NumParts 1 sub
  68. 0 1 2 index
  69. {
  70. dup Bounds exch get
  71. 2 index gt
  72. { exit }
  73. { dup
  74. 3 index eq
  75. { exit }
  76. { pop } ifelse
  77. } ifelse
  78. } for
  79. 3 2 roll pop
  80. dup Bounds exch get exch
  81. dup 1 add Bounds exch get exch
  82. 2 mul
  83. dup Encode exch get exch
  84. 1 add Encode exch get
  85. int
  86. } [/NumParts /Bounds /Encode] bld
  87. /rangeClip {
  88. exch dup Range_lo exch get
  89. exch Range_hi exch get
  90. 3 2 roll
  91. limit
  92. } [/Range_lo /Range_hi] bld
  93. /applyStitchFunc {
  94. Functions exch get exec
  95. currentdict /Range_lo known {
  96. 0 1 DimOut 1 sub {
  97. DimOut 1 add -1 roll
  98. rangeClip
  99. } for
  100. } if
  101. } [/Functions /Range_lo /DimOut] bld
  102. /pdf_flushfilters
  103. {
  104. aload length
  105. { dup status
  106. 1 index currentfile ne and
  107. { dup flushfile closefile }
  108. { pop }
  109. ifelse
  110. } repeat
  111. } bd
  112. /pdf_readstring
  113. {
  114. 1 index dup length 1 sub get
  115. exch readstring pop
  116. exch pdf_flushfilters
  117. } bind def
  118. /pdf_dictOp
  119. {
  120. 3 2 roll
  121. 10 dict copy
  122. begin
  123. _Filters dup length 1 sub get def
  124. currentdict exch exec
  125. _Filters pdf_flushfilters
  126. end
  127. } [/_Filters] bld
  128. /pdf_image {{image} /DataSource pdf_dictOp} bd
  129. /pdf_imagemask {{imagemask} /DataSource pdf_dictOp} bd
  130. /pdf_shfill {{sh} /DataSource pdf_dictOp} bd
  131. /pdf_sethalftone {{sethalftone} /Thresholds pdf_dictOp} bd
  132. /pdf_maskedImage
  133. {
  134. 10 dict copy begin
  135. /miDict currentdict def
  136. /DataDict DataDict 10 dict copy def
  137. DataDict begin
  138. /DataSource
  139. _Filters dup length 1 sub get
  140. def
  141. miDict image
  142. _Filters pdf_flushfilters
  143. end
  144. end
  145. } [/miDict /DataDict /_Filters] bld
  146. %%EndResource
  147.