home *** CD-ROM | disk | FTP | other *** search
/ Hacker 27 / HACKER27.BIN / Infoexpress / AcroRd32.exe / PSPROCSET / 16 < prev    next >
Text File  |  2000-01-27  |  2KB  |  128 lines
  1. %%BeginResource: procset pdflev1
  2. %%Version: 4.0 4
  3. %%Copyright: Copyright 1987-1999 Adobe Systems Incorporated. All Rights Reserved.
  4. %%LanguageLevel: 1
  5. %%Title: PDF operators, with code specific for Level 1
  6. /_defaulthalftone
  7. /currenthalftone where
  8. { pop currenthalftone }
  9. { 4 dict dup begin
  10. currentscreen
  11. /SpotFunction exch def
  12. /Angle exch def
  13. /Frequency exch def
  14. /HalftoneType 1 def
  15. end }
  16. ifelse
  17. dd
  18. /initialize {
  19. _defaulthalftone sethalftone
  20. } bd
  21. /terminate { } bd
  22. /pl {
  23. transform
  24. 0.25 sub round 0.25 add exch
  25. 0.25 sub round 0.25 add exch
  26. itransform
  27. } bd
  28. /m { _sa? { pl } if moveto } bd
  29. /l { _sa? { pl } if lineto } bd
  30. /c { _sa? { pl } if curveto } bd
  31. /setSA { /_sa? xdd } bd
  32. /AlmostFull?
  33. { dup maxlength exch length sub 2 le
  34. } bd
  35. /Expand
  36. { 1 index maxlength mul cvi dict
  37. dup begin exch { def } forall end
  38. } bd
  39. /xput {
  40. 3 2 roll
  41. dup 3 index known not
  42. { dup AlmostFull? { 1.5 Expand } if
  43. } if
  44. dup 4 2 roll put
  45. } bd
  46. /defineRes {
  47. _categories 1 index known not
  48. { /_categories _categories 2 index 10 dict xput store
  49. } if
  50. _categories exch 2 copy get 5 -1 roll 4 index xput put
  51. } bd
  52. /findRes {
  53. _categories exch get exch get
  54. } bd
  55. /ri/pop ld
  56. /L1setcolor {
  57. aload length
  58. dup 0 eq
  59. { pop .5 setgray }
  60. { dup 1 eq
  61. { pop setgray }
  62. { 3 eq
  63. { setrgbcolor }
  64. { setcmykcolor }
  65. ifelse }
  66. ifelse }
  67. ifelse
  68. } bind dd
  69. /_sfcs { } dd
  70. /_sscs { } dd
  71. /_sfc { _fc L1setcolor } dd
  72. /_ssc { _sc L1setcolor } dd
  73. /scn { sc } bd
  74. /SCN { SC } bd
  75. /gs
  76. { begin
  77. /SA here { /_sa? xdd } if
  78. /TR here
  79. {
  80. dup xcheck
  81. { settransfer }
  82. { aload pop setcolortransfer }
  83. ifelse
  84. } if
  85. /HT here { sethalftone } if
  86. /FL here { i } if
  87. currentdict gsDI
  88. end
  89. } bd
  90. /sfc {
  91. _lp /fill ne {
  92. _sfcs
  93. _sfc
  94. /_lp /fill dd
  95. } if
  96. } dd
  97. /ssc {
  98. _lp /stroke ne {
  99. _sscs
  100. _ssc
  101. /_lp /stroke dd
  102. } if
  103. } dd
  104. /f {
  105. { { sfc fill }
  106. {gsave sfc fill grestore clip newpath icl ilp}
  107. {gsave sfc fill grestore eoclip newpath icl ilp}
  108. } _doClip get exec
  109. } bd
  110. /f* {
  111. { { sfc eofill }
  112. {gsave sfc eofill grestore clip newpath icl ilp}
  113. {gsave sfc eofill grestore eoclip newpath icl ilp}
  114. } _doClip get exec
  115. } bd
  116. /S {
  117. { { ssc stroke }
  118. {gsave ssc stroke grestore clip newpath icl ilp}
  119. {gsave ssc stroke grestore eoclip newpath icl ilp}
  120. } _doClip get exec
  121. } bd
  122. /rf {re f} bd
  123. /setoverprint where
  124. { pop }
  125. { /setoverprint { pop } bd }
  126. ifelse
  127. %%EndResource
  128.