home *** CD-ROM | disk | FTP | other *** search
/ VRML Tools for 3D Cyberspace / VRML_Tools_For_3D_Cyberspace.iso / t_space2 / set05 < prev    next >
Text File  |  1996-07-01  |  897b  |  63 lines
  1. %%BeginProcSet: Adobe_cmykcolor 1.1 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.     /_setrgbcolor
  13.         /setrgbcolor load def
  14.     /_currentrgbcolor
  15.         /currentrgbcolor load def
  16.     Adobe_cmykcolor begin
  17.     Adobe_cmykcolor
  18.         {
  19.         dup xcheck
  20.             {
  21.             bind
  22.             } if
  23.         pop pop
  24.         } forall
  25.  end
  26.  end
  27.     Adobe_cmykcolor begin
  28.     } ifelse
  29. } def
  30. /terminate
  31. {
  32. currentdict Adobe_cmykcolor eq
  33.     {
  34.  end
  35.     } if
  36. } def
  37. /setcmykcolor
  38. {
  39. 1 sub 4 1 roll
  40. 3
  41.     {
  42.     3 index add neg dup 0 lt
  43.         {
  44.         pop 0
  45.         } if
  46.     3 1 roll
  47.     } repeat
  48. Adobe_cmykcolor_vars /_setrgbcolor get exec
  49. pop
  50. } def 
  51. /currentcmykcolor
  52. {
  53. Adobe_cmykcolor_vars /_currentrgbcolor get exec
  54. 3
  55.     {
  56.     1 sub neg 3 1 roll
  57.     } repeat
  58. 0
  59. } def
  60. currentdict readonly pop end
  61. setpacking
  62. %%EndProcSet
  63.