home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 12 / boot-disc-1997-08.iso / ILSTRATR / ARCHIVE.Z / ProcSets.aip / TEXT / 1002 < prev    next >
Text File  |  1997-05-07  |  1KB  |  67 lines
  1. %%BeginResource: procset Adobe_cmykcolor 1.1 0
  2. %%Title: (CMYK Color Operators)
  3. %%Version: 1.1 0
  4. %%CreationDate: (1/23/89) ()
  5. %%Copyright: ((C) 1987-1996 Adobe Systems Incorporated All Rights Reserved)
  6. currentpacking true setpacking
  7. userdict /Adobe_cmykcolor 4 dict dup begin put
  8. /initialize
  9. {
  10. /setcmykcolor where
  11.     {
  12.     pop
  13.     }
  14.     {
  15.     userdict /Adobe_cmykcolor_vars 2 dict dup begin put
  16.     /_setrgbcolor
  17.         /setrgbcolor load def
  18.     /_currentrgbcolor
  19.         /currentrgbcolor load def
  20.     Adobe_cmykcolor begin
  21.     Adobe_cmykcolor
  22.         {
  23.         dup xcheck
  24.             {
  25.             bind
  26.             } if
  27.         pop pop
  28.         } forall
  29.  end
  30.  end
  31.     Adobe_cmykcolor begin
  32.     } ifelse
  33. } def
  34. /terminate
  35. {
  36. currentdict Adobe_cmykcolor eq
  37.     {
  38.  end
  39.     } if
  40. } def
  41. /setcmykcolor
  42. {
  43. 1 sub 4 1 roll
  44. 3
  45.     {
  46.     3 index add neg dup 0 lt
  47.         {
  48.         pop 0
  49.         } if
  50.     3 1 roll
  51.     } repeat
  52. Adobe_cmykcolor_vars /_setrgbcolor get exec
  53. pop
  54. } def 
  55. /currentcmykcolor
  56. {
  57. Adobe_cmykcolor_vars /_currentrgbcolor get exec
  58. 3
  59.     {
  60.     1 sub neg 3 1 roll
  61.     } repeat
  62. 0
  63. } def
  64. currentdict readonly pop end
  65. setpacking
  66. %%EndResource
  67.