home *** CD-ROM | disk | FTP | other *** search
/ OneVision 3.03 / OneVision3.03.iso / Apps / OneVision.app / TMSPrintingPackage.1Vsys / OVRGBRendering.ps < prev    next >
Encoding:
Text File  |  1996-11-12  |  1.2 KB  |  50 lines
  1. %!
  2. %%Title: (OVRGBRendering)
  3. %%Version: 1.0 
  4. %%Copyright: ((C) OneVision GmbH, Regensburg All Rights Reserved)
  5.  
  6. 50 dict begin
  7.  
  8. currentpacking true setpacking
  9.  
  10. /OVCalibratedRGBRendering
  11. 6 dict begin
  12. /ColorRenderingType 1 def
  13. /WhitePoint [ 0.9505 1 1.089 ] def
  14. /MatrixLMN [3.2410 -0.9692 0.0556 -1.5374 1.8760 -0.2040 -0.4986 0.0416 1.0570] def
  15. /RangePQR [-0.125 1.375 -0.125 1.375 -0.125 1.375] def
  16. /MatrixPQR [0.40024 -0.22630 0.0 0.70760  1.16532 0.0 -0.08081  0.04570 0.91822] def
  17. /TransformPQR [{4 index 3 get div 2 index 3 get mul 4 {exch pop} repeat} bind
  18.                     {4 index 4 get div 2 index 4 get mul 4 {exch pop} repeat} bind
  19.                     {4 index 5 get div 2 index 5 get mul 4 {exch pop} repeat} bind
  20.                 ] def
  21. currentdict end def
  22. /OVDefaultRendering OVCalibratedRGBRendering def
  23.  
  24. /setcolorrendering
  25. {    dup /RenderTable known
  26.     {    dup /RenderTable get 4 get 4 eq
  27.         {pop}
  28.         {setcolorrendering}
  29.         ifelse
  30.     }
  31.     {setcolorrendering}
  32.     ifelse
  33. } hardbind def
  34.  
  35. /windowdeviceround
  36. {    windowdeviceround
  37.     {} dup dup dup setcolortransfer
  38.     /OVDefaultRendering load setcolorrendering
  39. } hardbind def
  40.  
  41. /setgstate
  42. {    setgstate
  43.     {} dup dup dup setcolortransfer
  44.     /OVDefaultRendering load setcolorrendering
  45. } hardbind def
  46.  
  47. setpacking
  48.  
  49. currentdict end /OVRGBRendering exch def
  50.