home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 1998 November / maximum-cd-1998-11.iso / Truespace 4 / Data / PROGRAM / PROCSETS / set024 < prev    next >
Encoding:
Text File  |  1998-08-28  |  807 b   |  46 lines
  1. %%BeginResource: procset Adobe_cmykcolor 0 0
  2. currentpacking true setpacking
  3. userdict /Adobe_cmykcolor 4 dict dup begin put
  4. /initialize
  5. {
  6. /setcmykcolor where
  7.     {
  8.     pop
  9.     }
  10.     {
  11.     userdict /Adobe_cmykcolor_vars 2 dict dup begin put
  12.     /_setgray /setgray load def
  13.     /_currentgray /currentgray load def
  14.     Adobe_cmykcolor begin
  15.     Adobe_cmykcolor
  16.         {
  17.         dup xcheck
  18.             {
  19.             bind
  20.             } if
  21.         pop pop
  22.         } forall
  23.  end
  24.  end
  25.     Adobe_cmykcolor begin
  26.     } ifelse
  27. } def
  28. /terminate
  29. {
  30. currentdict Adobe_cmykcolor eq
  31.     {
  32.  end
  33.     } if
  34. } def
  35. /setcmykcolor
  36. {
  37.     exch .11 mul add exch .59 mul add exch .3 mul add 1 exch sub
  38.     Adobe_cmykcolor_vars /_setgray get exec
  39. } def
  40. /currentcmykcolor
  41. {
  42. 0 0 0 1 Adobe_cmykcolor_vars /_currentgray get exec sub
  43. } def
  44. currentdict readonly pop end
  45. setpacking
  46. %%EndResource