home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2001 January / VPR0101A.BIN / APP_DEMO / DI4DEMO / ACRORD32 / Reader / AcroRd32.exe / PSPROCSET / 6 < prev    next >
Text File  |  1999-04-20  |  4KB  |  221 lines
  1. %%BeginResource: procset pdf
  2. %%Version: 4.0 1
  3. %%Copyright: Copyright 1998-1999 Adobe Systems Incorporated. All Rights Reserved.
  4. %%Title: General operators for PDF, common to all Language Levels.
  5. [/b/B/b*/B*/BDC/BI/BMC/BT/BX/c/cm/cs/CS/d/d0/d1/Do/DP/EI/EMC/ET/EX/f/f*/g/G/gs
  6. /h/i/j/J/k/K/l/m/M/MP/n/q/Q/re/rg/RG/ri/s/S/sc/SC/scn/SCN/sg/Tc/Td/TD/Tf/Tj/TJ
  7. /TL/Tm/Tr/Ts/Tw/Tz/T*/v/w/W/W*/y/'/"
  8. /applyInterpFunc/applystitchFunc/domainClip/EF/encodeInput/gsDI/ilp/icl
  9. /initgs/int/limit/PS/rangeClip/RC/rf/makePat
  10. ] {null def} bind forall
  11. /v { currentpoint 6 2 roll c } bd
  12. /y { 2 copy c } bd
  13. /h/closepath ld
  14. /d/setdash ld
  15. /j/setlinejoin ld
  16. /J/setlinecap ld
  17. /M/setmiterlimit ld
  18. /w/setlinewidth ld
  19. /i {
  20. dup 0 eq { pop _defaultflatness } if
  21. setflat
  22. } bd
  23. /gsDI {
  24. begin
  25. /Font here { aload pop Tf } if
  26. /LW here { w } if
  27. /LC here { J } if
  28. /LJ here { j } if
  29. /ML here { M } if
  30. /D here { aload pop d } if
  31. end
  32. } bd
  33. /ilp { /_lp /none dd } bd
  34. /sfc {
  35. _lp /fill ne {
  36. _sfcs
  37. _sfc
  38. /_lp /fill dd
  39. } if
  40. } dd
  41. /ssc {
  42. _lp /stroke ne {
  43. _sscs
  44. _ssc
  45. /_lp /stroke dd
  46. } if
  47. } dd
  48. /icl { /_doClip 0 dd } bd
  49. /W { /_doClip 1 dd } bd
  50. /W* { /_doClip 2 dd } bd
  51. /n {
  52. {{} {clip} {eoclip}} _doClip get exec
  53. icl
  54. newpath
  55. } bd
  56. /s { h S } bd
  57. /B { q f Q S } bd
  58. /B* { q f* Q S } bd
  59. /b { h B } bd
  60. /b* { h B* } bd
  61. /q/save ld
  62. /Q { restore ilp } bd
  63. /GetCSFamily {
  64. dup type /arraytype eq {0 get} if
  65. } bd
  66. /GetCompsDict
  67. 11 dict begin
  68. /DeviceGray { pop 1 } bd
  69. /DeviceRGB { pop 3 } bd
  70. /DeviceCMYK { pop 4 } bd
  71. /CIEBasedA { pop 1 } bd
  72. /CIEBasedABC { pop 3 } bd
  73. /CIEBasedDEF { pop 3 } bd
  74. /CIEBasedDEFG { pop 4 } bd
  75. /DeviceN { 1 get length } bd
  76. /Separation { pop 1 } bd
  77. /Indexed { pop 1 } bd
  78. /Pattern { pop 0 } bd
  79. currentdict
  80. end
  81. def
  82. /GetComps {
  83. GetCompsDict
  84. 1 index GetCSFamily
  85. get exec
  86. } bd
  87. /cs
  88. {
  89. dup _fcs eq
  90. { pop }
  91. { dup /_fcs xdd
  92. GetComps
  93. _fillColors exch get
  94. /_fc xdd
  95. /_fp null dd
  96. } ifelse
  97. } bd
  98. /CS
  99. {
  100. dup _scs eq
  101. { pop }
  102. { dup /_scs xdd GetComps _strokeColors exch get /_sc xdd /_sp null dd }
  103. ifelse
  104. } bd
  105. /sc {
  106. _fc astore pop
  107. ilp
  108. } bd
  109. /SC {
  110. _sc astore pop
  111. ilp
  112. } bd
  113. /g { DefaultGray cs sc } bd
  114. /rg { DefaultRGB cs sc } bd
  115. /k { DefaultCMYK cs sc } bd
  116. /G { DefaultGray CS SC } bd
  117. /RG { DefaultRGB CS SC } bd
  118. /K { DefaultCMYK CS SC } bd
  119. /cm { _mtx astore concat } bd
  120. /re {
  121. 4 2 roll m
  122. 1 index 0 rlineto
  123. 0 exch rlineto
  124. neg 0 rlineto
  125. h
  126. } bd
  127. /RC/rectclip ld
  128. /EF/execform ld
  129. /PS { cvx exec } bd
  130. /initgs {
  131. /DefaultGray [/DeviceGray] dd
  132. /DefaultRGB [/DeviceRGB] dd
  133. /DefaultCMYK [/DeviceCMYK] dd
  134. 0 g 0 G
  135. [] 0 d
  136. 0 j
  137. 0 J
  138. 10 M
  139. 1 w
  140. true setSA
  141. /_op? false dd
  142. /_OP? false dd
  143. /_opmode 0 dd
  144. /_defaulttransfer load 5 dict begin settransfer end
  145. 0 i
  146. newpath
  147. } bd
  148. /int {
  149. dup 2 index sub 3 index 5 index sub div 6 -2 roll sub mul
  150. exch pop add exch pop
  151. } bd
  152. /limit {
  153. dup 2 index le { exch } if pop
  154. dup 2 index ge { exch } if pop
  155. } bd
  156. /domainClip {
  157. Domain aload pop 3 2 roll
  158. limit
  159. } bd
  160. /applyInterpFunc {
  161. 0 1 DimOut 1 sub
  162. {
  163. dup C0 exch get exch
  164. dup C1 exch get exch
  165. 3 1 roll
  166. 1 index sub
  167. 3 index
  168. N exp mul add
  169. exch
  170. currentdict /Range_lo known
  171. {
  172. dup Range_lo exch get exch
  173. Range_hi exch get
  174. 3 2 roll limit
  175. }
  176. {
  177. pop
  178. }
  179. ifelse
  180. exch
  181. } for
  182. pop
  183. } bd
  184. /encodeInput {
  185. NumParts 1 sub
  186. 0 1 2 index
  187. {
  188. dup Bounds exch get
  189. 2 index gt
  190. { exit }
  191. { dup
  192. 3 index eq
  193. { exit }
  194. { pop } ifelse
  195. } ifelse
  196. } for
  197. 3 2 roll pop
  198. dup Bounds exch get exch
  199. dup 1 add Bounds exch get exch
  200. 2 mul
  201. dup Encode exch get exch
  202. 1 add Encode exch get
  203. int
  204. } bd
  205. /rangeClip {
  206. exch dup Range_lo exch get
  207. exch Range_hi exch get
  208. 3 2 roll
  209. limit
  210. } bd
  211. /applyStitchFunc {
  212. Functions exch get exec
  213. currentdict /Range_lo known {
  214. 0 1 DimOut 1 sub {
  215. DimOut 1 add -1 roll
  216. rangeClip
  217. } for
  218. } if
  219. } bind def
  220. %%EndResource
  221.