home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 2004 September / maximum-cd-2004-09.iso / Software / Apps / CorelDRAWGraphicsSuite12.exe / Data1.cab / eps.ps < prev    next >
Encoding:
Text File  |  2003-10-30  |  2.5 KB  |  36 lines
  1. % Copyright (c)1992-2003 Corel Corporation
  2. % All rights reserved.     v12 r0.0
  3. /@BeginEPS{$ngx 0 SetGry 0 J 0 j 1 w[]0 d 10 M false setoverprint @np/EPSDict
  4. 200 dict def EPSDict begin @sv SepMode_5 0 ne{/colorimage{@gs/sepdict 50 dict
  5. def sepdict begin[{1 exch sub}/exec cvx currenttransfer/exec cvx]cvx
  6. settransfer 3 eq/$rgb xd{$rgb{/daq0 xd/daq1 xd/daq2 xd/daq_rgb load}{/daq0 xd
  7. /daq1 xd/daq2 xd/daq3 xd/daq_cmyk load}ifelse}{/daq0 xd/daq_one load}ifelse 2
  8. index 8 eq/8bit xd $ink_5 dup 0 lt exch 3 gt or{pop pop pop exch pop{tcc pop}
  9. repeat}{IMAGE}ifelse end @gr}bd/2cmyk{3{255 exch sub 3 1 roll}repeat 3 copy @MN
  10. @MN 3{dup 5 -1 roll sub neg exch}repeat}bd/daq_rgb{/i 0 def/daq2 load exec
  11. /daq1 load exec/daq0 load exec dup dup length 0 exch getinterval/$data xd{8bit
  12. {1 index i get 3 index i get 2cmyk 4 $ink_5 neg roll pop pop pop}{pop 0}ifelse
  13. $data i 3 -1 roll put/i i 1 add def}forall pop pop $data}bd/daq_cmyk{/daq3 load
  14. exec/daq2 load exec/daq1 load exec/daq0 load exec 4 $ink_5 neg roll pop pop pop
  15. }bd/daq_one{/$in 0 def/$out 0 def/daq0 load exec dup dup length $rgb{3}{4}
  16. ifelse idiv 0 exch getinterval/$data xd $data{pop 8bit{$rgb{0 index $in 2 add
  17. get 1 index $in 1 add get 2 index $in get 2cmyk}{0 index $in get 1 index $in 1
  18. add get 2 index $in 2 add get 3 index $in 3 add get}ifelse 4 $ink_5 neg roll
  19. pop pop pop}{0}ifelse $data $out 3 -1 roll put/$in $in $rgb{3}{4}ifelse add def
  20. /$out $out 1 add def}forall pop $data}bd/@EPSshow9 where{pop}{/@EPSshow9/show
  21. ld/show{GetGry 1 eq currentoverprint and{pop}{@EPSshow9}ifelse}bd}ifelse
  22. /@EPSashow9 where{pop}{/@EPSashow9/ashow ld/ashow{GetGry 1 eq currentoverprint
  23. and{pop pop pop}{@EPSashow9}ifelse}bd}ifelse/@EPSwidthshow9 where{pop}{
  24. /@EPSwidthshow9/widthshow ld/widthshow{GetGry 1 eq currentoverprint and{pop pop
  25. pop pop}{@EPSwidthshow9}ifelse}bd}ifelse/@EPSawidthshow9 where{pop}{
  26. /@EPSawidthshow9/awidthshow ld/awidthshow{GetGry 1 eq currentoverprint and{pop
  27. pop pop pop pop pop}{@EPSawidthshow9}ifelse}bd}ifelse/@EPSfill9 where{pop}{
  28. /@EPSfill9/fill ld/fill{GetGry 1 eq currentoverprint and{newpath}{@EPSfill9}
  29. ifelse}bd}ifelse/@EPSeofill9 where{pop}{/@EPSeofill9/eofill ld/eofill{GetGry 1
  30. eq currentoverprint and{newpath}{@EPSeofill9}ifelse}bd}ifelse/@EPSstroke9 where
  31. {pop}{/@EPSstroke9/stroke ld/stroke{GetGry 1 eq currentoverprint and{newpath}{
  32. @EPSstroke9}ifelse}bd}ifelse}if/@EPSsetcmykcolor9 where{pop}{
  33. /@EPSsetcmykcolor9/setcmykcolor ld/setcmykcolor{currentdict wcheck{
  34. @EPSsetcmykcolor9}{1 5 1 roll _ currentoverprint @scc_5 pop}ifelse}bd}ifelse}
  35. bd/@EndEPS{@rs end}bd
  36.