home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 1 / The Apple Reference and Presentations Library (Disc 1)(January 1994).iso / Frame Technology / US English / FrameMaker 4-PPC / System Extras / PS Printer 8.1.1 / PSPrinter / PSPrinter.rsrc / PS_-8174 < prev    next >
Encoding:
Text File  |  1994-04-13  |  1.9 KB  |  134 lines
  1. %%BeginFile: adobe_psp_patterns_level1
  2. %%Copyright: Copyright 1991-1993 Adobe Systems Incorporated. All Rights Reserved.
  3. /patfreq Z
  4. /patangle Z
  5. /bk Z
  6. /fg Z
  7. /docolorscreen Z
  8. /graystring Z
  9. /pattransf{}def
  10. /initQDpatterns
  11. {
  12. /patfreq 9.375 store
  13. /patangle
  14. 1 0 $m defaultmatrix dtransform
  15. exch atan
  16. por not
  17. {90 add}if
  18. normland{180 add}if
  19. store
  20. :a
  21. }def
  22. /docolorscreen
  23. /setcolorscreen where
  24. {
  25. pop/currentcolorscreen where
  26. {
  27. pop/setcmykcolor where
  28. {
  29. pop true
  30. }{
  31. false
  32. }ifelse
  33. }{
  34. false
  35. }ifelse
  36. }{
  37. false
  38. }ifelse
  39. def
  40. /setgraypattern
  41. {
  42. /graystring xs
  43. patfreq
  44. patangle
  45. {
  46. 1 add
  47. 4 mul
  48. cvi
  49. graystring
  50. exch get
  51. exch
  52. 1 add 4 mul
  53. cvi
  54. 7 sub
  55. bitshift
  56. 1 and
  57. }setscreen
  58. 64 div setgray
  59. }bd
  60. /:b
  61. {
  62. /pattransf load settransfer
  63. pop pop pop
  64. setgraypattern
  65. }bd
  66. docolorscreen startnoload
  67. /screensave 5 array def
  68. /:a{currentgray currentscreen currenttransfer screensave astore pop}bd
  69. /:e{screensave aload pop settransfer setscreen setgray}bd
  70. /:d
  71. {
  72. pop pop pop
  73. /pattransf load settransfer
  74. setgraypattern 8{pop}repeat
  75. }bd
  76. /:c
  77. /:d ld
  78. docolorscreen endnoload docolorscreen not startnoload
  79. /screensave 20 array def
  80. /:a{currentcmykcolor currentcolorscreen currentcolortransfer screensave astore pop}bd
  81. /:e{screensave aload pop setcolortransfer setcolorscreen setcmykcolor}bd
  82. /rstring Z
  83. /grstring Z
  84. /blstring Z
  85. /convroll{64 div 4 -1 roll}bd
  86. /setcolorpattern
  87. {
  88. /graystring xs
  89. /blstring xs
  90. /grstring xs
  91. /rstring xs
  92. patfreq
  93. patangle
  94. {
  95. 1 add 4 mul cvi rstring
  96. exch get exch 1 add 4 mul
  97. cvi 7 sub bitshift 1 and
  98. }
  99. patfreq
  100. patangle
  101. {
  102. 1 add 4 mul cvi grstring
  103. exch get exch 1 add 4 mul
  104. cvi 7 sub bitshift 1 and
  105. }
  106. patfreq
  107. patangle
  108. {
  109. 1 add 4 mul cvi blstring
  110. exch get exch 1 add 4 mul
  111. cvi 7 sub bitshift 1 and
  112. }
  113. patfreq
  114. patangle
  115. {
  116. 1 add 4 mul cvi graystring
  117. exch get exch 1 add 4 mul
  118. cvi 7 sub bitshift 1 and
  119. }
  120. setcolorscreen
  121. convroll convroll convroll convroll
  122. setcmykcolor
  123. }bd
  124. /:d
  125. {
  126. pop pop pop
  127. /pattransf load settransfer
  128. pop pop setcolorpattern
  129. }bd
  130. /:c
  131. /:d ld
  132. docolorscreen not endnoload
  133. %%EndFile
  134.