home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1996 May / buyer-0596.iso / internet / amber / archive.z / VIEWER32.EXE / PSPROCSET / 8 < prev    next >
Text File  |  1995-12-07  |  2KB  |  80 lines
  1. %%BeginFile: pdfimg1b.prc
  2. %%Copyright: Copyright 1987-1993 Adobe Systems Incorporated. All Rights Reserved.
  3. PDF /PDFImage get begin
  4. Level2? not StartLoad {
  5. PDFIVars /PDFImages 4 dict put
  6. /InstallImage {
  7. PDFIVars /PDFImages get 3 1 roll put
  8. } bd
  9. /ColorComps? {
  10. dup type /arraytype eq { 0 get } if /PDFImages gv exch get 0 get
  11. } bd
  12. /ColorProc? {
  13. dup type /arraytype eq { 0 get } if /PDFImages gv exch get 1 get
  14. } bd
  15. /ImageFilter {
  16. /DataSource here {
  17. pop [ DataSource ] cvx
  18. }
  19. {
  20. /Filter here {
  21. dup type /arraytype eq {
  22. dup length 1 ne {
  23. (Image uses unsupported cascading filters: ) print Filter == quit
  24. } {
  25. aload pop
  26. } ifelse
  27. } if
  28. /ASCIIHexDecode ne {
  29. (Image uses unsupported filter: ) print Filter == quit
  30. } {
  31. [ currentfile /CIBuffer gv /readhexstring cvx
  32. /pop cvx ] cvx bind
  33. } ifelse
  34. } {
  35. [ currentfile /CIBuffer gv /readstring cvx /pop cvx ] cvx bind
  36. } ifelse
  37. } ifelse
  38. } bd
  39. /ID {
  40. 5 counttomark 2 idiv
  41. dup 3 1 roll add
  42. dict begin
  43. { def } repeat
  44. cleartomark
  45. currentdict
  46. end
  47. PDFIVars begin begin
  48. /ImageMatrix [ Width 0 0 Height neg 0 Height ] def
  49. /ColorSpace here { pop }
  50. { /ColorSpace /DeviceGray def } ifelse
  51. Width BitsPerComponent mul ColorSpace ColorComps? mul
  52. 7 add 8 idiv
  53. string /CIBuffer exch pv
  54. ColorSpace ColorProc? exec
  55. /Filter here {
  56. pop
  57. {
  58. currentfile read { 62 eq { exit } if } { exit } ifelse
  59. } loop
  60. } if
  61. end end
  62. } bd
  63. /DeviceGray [ 1
  64. {
  65. /ImageMask here not { false } if
  66. {
  67. sfc
  68. Width Height
  69. /Decode here { 0 get 1 eq } { false } ifelse
  70. ImageMatrix ImageFilter imagemask
  71. } {
  72. Width Height BitsPerComponent ImageMatrix
  73. ImageFilter image
  74. } ifelse
  75. } bind
  76. ] InstallImage
  77. } EndLoad
  78. end
  79. %%EOF
  80.