home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 12 / boot-disc-1997-08.iso / ILSTRATR / ARCHIVE.Z / ProcSets.aip / TEXT / 1805 < prev    next >
Text File  |  1997-05-07  |  667b  |  53 lines
  1. %%BeginProcSet: Adobe_customcolor 1.0 0
  2. currentpacking true setpacking
  3. userdict /Adobe_customcolor 5 dict dup begin put
  4. /initialize
  5. {
  6. /setcustomcolor where
  7.     {
  8.     pop
  9.     }
  10.     {
  11.     Adobe_customcolor begin
  12.     Adobe_customcolor
  13.         {
  14.         dup xcheck
  15.             {
  16.             bind
  17.             } if
  18.         pop pop
  19.         } forall
  20.  end
  21.     Adobe_customcolor begin
  22.     } ifelse
  23. } def
  24. /terminate
  25. {
  26. currentdict Adobe_customcolor eq
  27.     {
  28.  end
  29.     } if
  30. } def
  31. /findcmykcustomcolor
  32. {
  33. 5 packedarray
  34. }  def
  35. /setcustomcolor
  36. {
  37. exch
  38. aload pop pop
  39. 4
  40.     {
  41.     4 index mul 4 1 roll
  42.     } repeat
  43. 5 -1 roll pop
  44. setcmykcolor
  45. } def
  46. /setoverprint
  47. {
  48. pop
  49. } def
  50. currentdict readonly pop end
  51. setpacking
  52. %%EndProcSet
  53.