home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 October A / Pcwk10a98.iso / Corel / Ventura8 / Programs / Data / eps80.ps < prev    next >
Text File  |  1998-03-12  |  2KB  |  28 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/@show/show ld/show{GetGry 1 eq
  19. currentoverprint and{pop}{@show}ifelse}bd/@ashow/ashow ld/ashow{GetGry 1 eq
  20. currentoverprint and{pop pop pop}{@ashow}ifelse}bd/@widthshow/widthshow ld
  21. /widthshow{GetGry 1 eq currentoverprint and{pop pop pop pop}{@widthshow}ifelse
  22. }bd/@awidthshow/awidthshow ld/awidthshow{GetGry 1 eq currentoverprint and{pop
  23. pop pop pop pop pop}{@awidthshow}ifelse}bd/@fill/fill ld/fill{GetGry 1 eq
  24. currentoverprint and{newpath}{@fill}ifelse}bd/@eofill/eofill ld/eofill{GetGry 1
  25. eq currentoverprint and{newpath}{@eofill}ifelse}bd/@stroke/stroke ld/stroke{
  26. GetGry 1 eq currentoverprint and{newpath}{@stroke}ifelse}bd}if}bd/@EndEPS{@rs
  27. end}bd
  28.