home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / Chip_1998-03_cd.bin / tema / Adobe / Illustr / archive.z / ProcSets.aip / TEXT / 1005 < prev    next >
Text File  |  1997-08-01  |  836b  |  57 lines
  1. %%BeginResource: procset Adobe_customcolor 1.0 0
  2. %%Title: (Custom Color Operators)
  3. %%Version: 1.0 0
  4. %%CreationDate: (5/9/88) ()
  5. %%Copyright: ((C) 1987-1996 Adobe Systems Incorporated All Rights Reserved)
  6. currentpacking true setpacking
  7. userdict /Adobe_customcolor 5 dict dup begin put
  8. /initialize
  9. {
  10. /setcustomcolor where
  11.     {
  12.     pop
  13.     }
  14.     {
  15.     Adobe_customcolor begin
  16.     Adobe_customcolor
  17.         {
  18.         dup xcheck
  19.             {
  20.             bind
  21.             } if
  22.         pop pop
  23.         } forall
  24.  end
  25.     Adobe_customcolor begin
  26.     } ifelse
  27. } def
  28. /terminate
  29. {
  30. currentdict Adobe_customcolor eq
  31.     {
  32.  end
  33.     } if
  34. } def
  35. /findcmykcustomcolor
  36. {
  37. 5 packedarray
  38. }  def
  39. /setcustomcolor
  40. {
  41. exch
  42. aload pop pop
  43. 4
  44.     {
  45.     4 index mul 4 1 roll
  46.     } repeat
  47. 5 -1 roll pop
  48. setcmykcolor
  49. } def
  50. /setoverprint
  51. {
  52. pop
  53. } def
  54. currentdict readonly pop end
  55. setpacking
  56. %%EndResource
  57.