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