home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 November / Chip 11-96.iso / treiber / drucker / lexmark / 4079_001 / win3x / blueadj / blueadj.ps next >
Encoding:
Text File  |  1993-02-19  |  1.3 KB  |  45 lines
  1. 
  2. % Sample Postscript program to adjust color rendering on the IBM* 4079.
  3. % Eliminates 'graying' effect.  Adjusts Blue to have less of a purple
  4. % hue.
  5. %
  6. % Copy this file to the printer.  (It will not output anything.)  The
  7. % changes made will last until the printer is turned off or is Reset.
  8. %
  9. % This program will not affect images.
  10. %
  11. % This program will not affect HPGL mode.
  12. %
  13. % Do not use this program in conjunction with the Pantone color tables.
  14. %
  15. % (C) Copyright 1993 Lexmark International Inc. All Rights Reserved.
  16. %
  17. % *IBM is a registered trademark of the International Business Machines
  18. %  Corporation in the United States and/or other countries and is used
  19. %  under license.
  20. %
  21.  
  22. userdict /4079blueadj known not
  23. { serverdict begin 0 exitserver } if
  24.  
  25. /4079blueadj
  26.   { dup .5 gt
  27.      { dup .666667 lt { .375 mul .3125 add }
  28.                     { dup .833333 lt { 1.625 mul .520833 sub } if }
  29.                     ifelse
  30.      } if
  31.   } bind def
  32.  
  33.  
  34. /sethsbcolor { 3 -1 roll 4079blueadj 3 1 roll
  35.                systemdict /sethsbcolor get exec } bind def
  36.  
  37. /setrgbcolor { systemdict /setrgbcolor get exec
  38.                currenthsbcolor sethsbcolor } bind def
  39.  
  40. /setcmykcolor { systemdict /setcmykcolor get exec
  41.                currenthsbcolor sethsbcolor } bind def
  42.  
  43. {pop 0.0} bind setblackgeneration
  44.  
  45.