home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1996 May / buyer-0596.iso / internet / amber / archive.z / VIEWER32.EXE / PSPROCSET / 11 < prev    next >
Text File  |  1995-12-07  |  1KB  |  63 lines
  1. %%BeginFile: pdfimg2.prc
  2. %%Copyright: Copyright 1987-1993 Adobe Systems Incorporated. All Rights Reserved.
  3. PDF /PDFImage get begin
  4. Level2? StartLoad {
  5. /ID {
  6. 5 counttomark 2 idiv
  7. dup 3 1 roll add
  8. dict begin
  9. { def } repeat
  10. cleartomark
  11. currentdict
  12. end
  13. begin
  14. /ImageType 1 def
  15. /ImageMatrix [ Width 0 0 Height neg 0 Height ] def
  16. /ImageMask here { not } { true } ifelse
  17. { /ImageMask false def } if
  18. ImageMask not { ColorSpace setcolorspace } if
  19. /Intent here { ri } if
  20. /Decode here { pop } {
  21. /Decode [
  22. ImageMask {
  23. 0 1
  24. } {
  25. currentcolorspace 0 get /Indexed eq {
  26. 0 2 BitsPerComponent exp 1 sub
  27. } {
  28. mark currentcolor counttomark
  29. dup 2 add 1 roll cleartomark
  30. { 0 1 } repeat
  31. } ifelse
  32. } ifelse
  33. ] def
  34. } ifelse
  35. /DataSource here { pop } {
  36. /DataSource
  37. currentfile
  38. /Filter here {
  39. dup type /arraytype eq { length } { pop 1 } ifelse
  40. 1 sub 0 1 3 -1 roll {
  41. /DecodeParms here {
  42. dup type /arraytype eq {
  43. 1 index get
  44. } if
  45. dup null eq { pop } { exch } ifelse
  46. } if
  47. Filter dup type /arraytype eq
  48. { exch get } { exch pop } ifelse
  49. filter
  50. } for
  51. } if
  52. def
  53. } ifelse
  54. currentdict
  55. /ImageMask here not { false } if
  56. { sfc imagemask } { image } ifelse
  57. end
  58. } bd
  59. currentdict readonly pop
  60. } EndLoad
  61. end
  62. %%EOF
  63.