home *** CD-ROM | disk | FTP | other *** search
/ MacAdvocate 2 / apple-mac-advocate-ii-fall-1997.iso / mac / MacOS / Other Installers / LaserWriter 8.4.1 Installer / LaserWriter Disk 1 / PL.CommonRsrc / PL.CommonRsrc.rsrc / PS_-8177 < prev    next >
Encoding:
Text File  |  1996-09-10  |  2.1 KB  |  134 lines
  1. %%BeginFile: lw8_level2_basicimage-2.0
  2. /$j 9 dict dup
  3. begin
  4. /ImageType 1 def
  5. /MultipleDataSource F def
  6. end
  7. def
  8. /im_save Z
  9. /setupimageproc Z
  10. /polarity Z
  11. /smoothflag Z
  12. /bpc Z
  13. /ih Z
  14. /iw Z
  15. /datatype Z
  16. /xtraData Z
  17. /:f
  18. {
  19. /im_save save store
  20. /xtraData xs
  21. /datatype xs
  22. datatype 0 lt datatype 8 gt or{
  23. (error, datatype out of range)print flush stop
  24. }if
  25. /setupimageproc{
  26. {
  27. currentfile
  28. }
  29. {
  30. currentfile 0(%ADOeod)/SubFileDecode filter/ASCIIHexDecode filter
  31. }
  32. {
  33. currentfile/RunLengthDecode filter
  34. }
  35. {
  36. currentfile/ASCII85Decode filter/RunLengthDecode filter
  37. }
  38. {
  39. currentfile/ASCII85Decode filter
  40. }
  41. {
  42. currentfile/DCTDecode filter
  43. }
  44. {
  45. currentfile/ASCII85Decode filter/DCTDecode filter
  46. }
  47. {
  48. currentfile 4 dict dup begin/Columns iw def/Rows ih def/DamagedRowsBeforeError ih def/BlackIs1 T def end/CCITTFaxDecode filter
  49. }
  50. {
  51. currentfile/ASCII85Decode filter 4 dict dup begin/Columns iw def/Rows ih def/DamagedRowsBeforeError ih def/BlackIs1 T def end/CCITTFaxDecode filter
  52. }
  53. {
  54. currentfile 5 dict dup begin/K -1 def/Columns iw def/Rows ih def/DamagedRowsBeforeError ih def/BlackIs1 T def end/CCITTFaxDecode filter
  55. }
  56. {
  57. currentfile/ASCII85Decode filter 5 dict dup begin/K -1 def/Columns iw def/Rows ih def/DamagedRowsBeforeError ih def/BlackIs1 T def end/CCITTFaxDecode filter
  58. }
  59. {
  60. currentfile 5 dict dup begin/K 1 def/Columns iw def/Rows ih def/DamagedRowsBeforeError ih def/BlackIs1 T def end/CCITTFaxDecode filter
  61. }
  62. {
  63. currentfile/ASCII85Decode filter 5 dict dup begin/K 1 def/Columns iw def/Rows ih def/DamagedRowsBeforeError ih def/BlackIs1 T def end/CCITTFaxDecode filter
  64. }
  65. }datatype get store
  66. {
  67. [1 0]
  68. }{
  69. [0 1]
  70. }ifelse
  71. /polarity xs
  72. /smoothflag xs
  73. concat
  74. xtraData
  75. {
  76. 0 0 1 1 rC
  77. }if
  78. pop
  79. /bpc xs
  80. xtraData{4 add}if
  81. /ih xs
  82. /iw xs
  83. $c setcolorspace
  84. }bd
  85. /:j{im_save restore}bd
  86. /mkimgmtx
  87. {
  88. xtraData
  89. {
  90. [Width 0 0 Height 4 sub 0 2]
  91. }{
  92. [Width 0 0 Height 0 0]
  93. }ifelse
  94. }bd
  95. /do1img
  96. {
  97. $j dup begin
  98. /Width iw def
  99. /Height ih def
  100. /Decode polarity def
  101. /ImageMatrix mkimgmtx def
  102. /DataSource setupimageproc def
  103. /BitsPerComponent 1 def
  104. /Interpolate smoothflag def
  105. end
  106. imagemask
  107. }bd
  108. /:g
  109. {
  110. 1 G
  111. 0
  112. 1 1 idtransform abs exch pop
  113. 1 1
  114. rF
  115. 0 G
  116. do1img
  117. }bd
  118. /:h
  119. {
  120. :Fx
  121. 0
  122. 1 1 idtransform abs exch pop
  123. 1 1
  124. rF
  125. :Fx
  126. do1img
  127. }bd
  128. /:i
  129. {
  130. :Fx
  131. do1img
  132. }bd
  133. %%EndFile
  134.