home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Photopnt / duotone2.ps < prev    next >
Encoding:
Text File  |  1995-09-05  |  939 b   |  33 lines
  1. /readdata {currentfile exch readhexstring pop} def
  2. /ReadImage IsLevel2 {/image load def} {{begin
  3. Width Height BitsPerComponent ImageMatrix
  4. Decode length 2 eq
  5. {/DataSource load image} if
  6. Decode length 6 eq
  7. {DataSource 0 get DataSource 1 get DataSource 2 get
  8. true 3 colorimage} if
  9. Decode length 8 eq
  10. {DataSource 0 get DataSource 1 get
  11. DataSource 2 get DataSource 3 get
  12. true 4 colorimage} if
  13. end} def} ifelse
  14. /CorelReadImage IsLevel2 {/CorelImage load def} {{begin
  15. Width Height BitsPerComponent ImageMatrix
  16. /DataSource load CorelImage end} def} ifelse
  17. /beginimage {
  18. InkNum -1 eq
  19. {IsNeg {{pop 0}} {{pop 1}} ifelse
  20. CorelSetTransfer CorelReadImage}
  21. {InkNum 0 eq
  22. {ReadImage} {CorelReadImage} ifelse} ifelse
  23. } def
  24. 12 dict begin
  25. /ImageType 1 def
  26. /Width cols def
  27. /Height rows def
  28. /ImageMatrix [cols 0 0 rows neg 0 rows] def
  29. /BitsPerComponent 8 def
  30. /Decode [0 1] def
  31. /DataSource {picstr1 readdata} def
  32. currentdict end
  33.