home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd2.bin / Corel / Programs / Data / eps90.ps < prev    next >
Text File  |  1999-03-31  |  3KB  |  34 lines
  1. /@BeginEPS{$ngx 0 SetGry 0 J 0 j 1 w[]0 d 10 M false setoverprint @np/EPSDict
  2. 200 dict def EPSDict begin @sv SepMode_5 0 ne{/colorimage{@gs/sepdict 50 dict
  3. def sepdict begin[{1 exch sub}/exec cvx currenttransfer/exec cvx]cvx
  4. settransfer 3 eq/$rgb xd{$rgb{/daq0 xd/daq1 xd/daq2 xd/daq_rgb load}{/daq0 xd
  5. /daq1 xd/daq2 xd/daq3 xd/daq_cmyk load}ifelse}{/daq0 xd/daq_one load}ifelse 2
  6. index 8 eq/8bit xd $ink_5 dup 0 lt exch 3 gt or{pop pop pop exch pop{tcc pop}
  7. repeat}{IMAGE}ifelse end @gr}bd/2cmyk{3{255 exch sub 3 1 roll}repeat 3 copy @MN
  8. @MN 3{dup 5 -1 roll sub neg exch}repeat}bd/daq_rgb{/i 0 def/daq2 load exec
  9. /daq1 load exec/daq0 load exec dup dup length 0 exch getinterval/$data xd{8bit
  10. {1 index i get 3 index i get 2cmyk 4 $ink_5 neg roll pop pop pop}{pop 0}ifelse
  11. $data i 3 -1 roll put/i i 1 add def}forall pop pop $data}bd/daq_cmyk{/daq3 load
  12. exec/daq2 load exec/daq1 load exec/daq0 load exec 4 $ink_5 neg roll pop pop pop
  13. }bd/daq_one{/$in 0 def/$out 0 def/daq0 load exec dup dup length $rgb{3}{4}
  14. ifelse idiv 0 exch getinterval/$data xd $data{pop 8bit{$rgb{0 index $in 2 add
  15. get 1 index $in 1 add get 2 index $in get 2cmyk}{0 index $in get 1 index $in 1
  16. add get 2 index $in 2 add get 3 index $in 3 add get}ifelse 4 $ink_5 neg roll
  17. pop pop pop}{0}ifelse $data $out 3 -1 roll put/$in $in $rgb{3}{4}ifelse add def
  18. /$out $out 1 add def}forall pop $data}bd/@EPSshow9 where{pop}{/@EPSshow9/show
  19. ld/show{GetGry 1 eq currentoverprint and{pop}{@EPSshow9}ifelse}bd}ifelse
  20. /@EPSashow9 where{pop}{/@EPSashow9/ashow ld/ashow{GetGry 1 eq currentoverprint
  21. and{pop pop pop}{@EPSashow9}ifelse}bd}ifelse/@EPSwidthshow9 where{pop}{
  22. /@EPSwidthshow9/widthshow ld/widthshow{GetGry 1 eq currentoverprint and{pop pop
  23. pop pop}{@EPSwidthshow9}ifelse}bd}ifelse/@EPSawidthshow9 where{pop}{
  24. /@EPSawidthshow9/awidthshow ld/awidthshow{GetGry 1 eq currentoverprint and{pop
  25. pop pop pop pop pop}{@EPSawidthshow9}ifelse}bd}ifelse/@EPSfill9 where{pop}{
  26. /@EPSfill9/fill ld/fill{GetGry 1 eq currentoverprint and{newpath}{@EPSfill9}
  27. ifelse}bd}ifelse/@EPSeofill9 where{pop}{/@EPSeofill9/eofill ld/eofill{GetGry 1
  28. eq currentoverprint and{newpath}{@EPSeofill9}ifelse}bd}ifelse/@EPSstroke9 where
  29. {pop}{/@EPSstroke9/stroke ld/stroke{GetGry 1 eq currentoverprint and{newpath}{
  30. @EPSstroke9}ifelse}bd}ifelse}if/@EPSsetcmykcolor9 where{pop}{
  31. /@EPSsetcmykcolor9/setcmykcolor ld/setcmykcolor{currentdict wcheck{
  32. @EPSsetcmykcolor9}{1 5 1 roll _ currentoverprint @scc_5 pop}ifelse}bd}ifelse}
  33. bd/@EndEPS{@rs end}bd
  34.