home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 October A / Pcwk10a98.iso / Corel / Ventura8 / Programs / PLACEDPDF.DLL / PSPROCSET / 11 < prev    next >
Encoding:
Text File  |  1998-04-06  |  1.3 KB  |  72 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. [
  36. /DataSource here { pop } {
  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. dup
  51. } for
  52. } if
  53. /DataSource exch def
  54. } ifelse
  55. currentdict
  56. /ImageMask here not { false } if
  57. { sfc imagemask } { image } ifelse
  58. counttomark
  59. { dup status
  60. { dup flushfile closefile }
  61. { pop }
  62. ifelse
  63. }
  64. repeat
  65. pop
  66. end
  67. } bd
  68. currentdict readonly pop
  69. } EndLoad
  70. end
  71. %%EndFile
  72.