home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1998 May / dpcb0598.iso / Business / Draw8 / Programs / Data / eps80.ps < prev    next >
Text File  |  1997-10-14  |  1KB  |  19 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}if}bd/@EndEPS{@rs end}bd
  19.