home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / duotone.ps < prev    next >
Encoding:
Text File  |  1997-09-19  |  1.5 KB  |  49 lines
  1. gsave
  2. /IsColourDevice
  3. /deviceinfo where
  4. {pop deviceinfo /Colors known
  5. {deviceinfo /Colors get exec 1 gt}
  6. {false} ifelse}
  7. {/statusdict where
  8. {pop statusdict /processcolors known
  9. {statusdict /processcolors get exec 1 gt}
  10. {false} ifelse}
  11. {false} ifelse}
  12. ifelse
  13. def
  14. 40 dict begin
  15. /CorelImage systemdict /image get def
  16. /CorelSetGray systemdict /setgray get def
  17. /CorelGetGray systemdict /currentgray get def
  18. /CorelSetTransfer systemdict /settransfer get def
  19. /CorelGetTransfer systemdict /currenttransfer get def
  20. /IsLevel2 systemdict /languagelevel known 
  21. {languagelevel 2 ge}
  22. {false}
  23. ifelse def
  24. /IsBlank 0 CorelGetTransfer exec 1 CorelGetTransfer exec eq def
  25. /IsNeg IsBlank
  26. {0 CorelGetTransfer exec 0.5 lt}
  27. {0 CorelGetTransfer exec 1 CorelGetTransfer exec gt}
  28. ifelse def
  29. /StackTopFourEqual {4 index eq 8 1 roll
  30. 4 index eq 8 1 roll
  31. 4 index eq 8 1 roll
  32. 4 index eq 8 1 roll
  33. pop pop pop pop and and and} def
  34. IsColourDevice {/SepNum 0 def} {/SepNum 5 def} ifelse
  35. /setcmykcolor where {pop
  36. 1 0 0 0 setcmykcolor CorelGetGray 1 exch sub
  37. 0 1 0 0 setcmykcolor CorelGetGray 1 exch sub
  38. 0 0 1 0 setcmykcolor CorelGetGray 1 exch sub
  39. 0 0 0 1 setcmykcolor CorelGetGray 1 exch sub
  40. 4 {4 copy} repeat
  41. 1 0 0 0 StackTopFourEqual {/SepNum 1 store} if
  42. 0 1 0 0 StackTopFourEqual {/SepNum 2 store} if
  43. 0 0 1 0 StackTopFourEqual {/SepNum 3 store} if
  44. 0 0 0 1 StackTopFourEqual {/SepNum 4 store} if
  45. 0 0 0 0 StackTopFourEqual {/SepNum 6 store} if} if
  46. IsBlank {/SepNum 6 store} if
  47. SepNum 0 eq SepNum 5 eq or {/InkNum 0 def} {
  48. /InkNum -1 def
  49.