home *** CD-ROM | disk | FTP | other *** search
/ jppd.dyndns.org / jppd.dyndns.org.tar / jppd.dyndns.org / QUERYPRO / Impressora_PDF / converter.exe / GPLGS / stcolor.ps < prev    next >
Text File  |  2002-02-22  |  5KB  |  172 lines
  1. % Copyright (C) 1995 Aladdin Enterprises.  All rights reserved
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: stcolor.ps,v 1.4 2002/02/21 21:49:28 giles Exp $
  17. % stcolor.ps
  18. % Epson Stylus-Color Printer-Driver
  19.  
  20. % The purpose of this file is to configure the stcolor-printer driver
  21.  
  22. %
  23. % It is useless and dangerous to interpret the following code with anything
  24. % else than Ghostscript, so this condition is verified first. If this fails
  25. % a message is send to the output. If this message bothers you, remove it,
  26. % but I prefer to know why the device-setup failed.
  27.  
  28. statusdict begin product end
  29. dup (Ghostscript) eq 1 index (Aladdin Ghostscript) eq or
  30. exch (AFPL Ghostscript) eq or{
  31.  
  32. % fetch the current device-parameters this is specific for Ghostscript.
  33.  
  34.   /STCold currentdevice getdeviceprops .dicttomark def
  35.  
  36. % Any Ghostscript-Driver has a Name, verify that the selected device is
  37. % stcolor, otherwise nothing than another message will be produced.
  38.  
  39.   STCold /Name get (stcolor) eq {
  40.  
  41. %
  42. % The main thing this file does, is to establish transfer-functions.
  43. % Here are two predefined arrays for 360x360Dpi and for 720x720DpI.
  44. % If resolution is 360x720 or 720x360 the average is used. You may
  45. % want to define other arrays here.
  46. %
  47.  
  48.      /STCdeftransfer [ 0.0 1.0 ] def
  49.  
  50.      /STCKtransfer360 [
  51.        0.0000 0.0034 0.0185 0.0377 0.0574 0.0769 0.0952 0.1147
  52.        0.1337 0.1540 0.1759 0.1985 0.2209 0.2457 0.2706 0.2949
  53.        0.3209 0.3496 0.3820 0.4145 0.4505 0.4907 0.5344 0.5840
  54.        0.6445 0.7093 0.8154 0.9816 0.9983 0.9988 0.9994 1.0000
  55.      ] def
  56.  
  57.      /STCKtransfer720 [
  58.        0.0000 0.0011 0.0079 0.0151 0.0217 0.0287 0.0354 0.0425
  59.        0.0492 0.0562 0.0633 0.0700 0.0766 0.0835 0.0900 0.0975
  60.        0.1054 0.1147 0.1243 0.1364 0.1489 0.1641 0.1833 0.2012
  61.        0.2217 0.2492 0.2814 0.3139 0.3487 0.3996 0.4527 0.5195
  62.      ] def
  63.  
  64. % compute the resolution
  65.  
  66.      STCold /HWResolution get dup
  67.      0 get exch 1 get mul sqrt /STCdpi exch def
  68.  
  69. % pick the colormodel
  70.      STCold /ProcessColorModel get /STCcolor exch def
  71.  
  72.  
  73.      mark % prepare stack for "putdeviceprops" 
  74.  
  75. % warn for BitsPerPixel=30 with fsrgb
  76.      STCcolor /DeviceRGB eq STCold /BitsPerPixel get 32 eq and 
  77.      {
  78.        (%%[ stcolor.ps: inefficient RGB-setup, recommend BitsPerPixel=24 ]%%\n)
  79.        print
  80.       } if
  81.  
  82. % if the Dithering-Method is default (gscmyk), change it to fscmyk
  83. % this is achieved by pushing a name/value-pair onto the stack
  84. % if the selected algorithm uses another ProcessColorModel, it is necessary
  85. % to change the Value of STCcolor according to the new algorithm.
  86.  
  87.      STCold /Dithering get (gscmyk) eq 
  88.      { 
  89.         /Dithering (hscmyk) % preferred dithering-method
  90.      } if % might be necessary to change STCcolor too
  91.  
  92. %
  93. % select the array according to the resolution
  94. %
  95.      STCdpi 359.0 lt 
  96.      { STCdeftransfer }
  97.      { STCdpi 361.0 lt
  98.        { STCKtransfer360 }
  99.        { STCdpi 719.0 gt
  100.          { STCKtransfer720 }
  101.          {
  102.            STCKtransfer360 length STCKtransfer720 length eq
  103.            {
  104.              0 1 STCKtransfer360 length 1 sub 
  105.              {
  106.                dup dup 
  107.                STCKtransfer360 exch get 
  108.                exch STCKtransfer720 exch get 
  109.                add 2.0 div 
  110.                STCKtransfer360 3 1 roll put
  111.              } for
  112.            }if
  113.            STCKtransfer360
  114.          } ifelse
  115.        }ifelse
  116.      } ifelse
  117.      /STCtransfer exch def
  118.  
  119. %
  120. % Add the arrays. With Version 1.17 and above, it seems to be 
  121. % a good idea, to use the transfer-arrays as coding-arrays too.
  122. %
  123.  
  124. %
  125. % RGB-Model requires inversion of the transfer-arrays
  126. %
  127.      STCcolor /DeviceRGB eq 
  128.      {
  129.         /RGBtransfer STCtransfer length array def
  130.         0 1 STCtransfer length 1 sub
  131.         {
  132.           dup RGBtransfer length 1 sub exch sub exch 
  133.           STCtransfer exch get 1.0 exch sub
  134.           RGBtransfer 3 1 roll put
  135.         } for
  136.  
  137.         /Rtransfer RGBtransfer
  138.         /Gtransfer RGBtransfer
  139.         /Btransfer RGBtransfer
  140.  
  141.         /Rcoding   RGBtransfer
  142.         /Gcoding   RGBtransfer
  143.         /Bcoding   RGBtransfer
  144.  
  145.      }{
  146.  
  147.        /Ctransfer STCtransfer
  148.        /Mtransfer STCtransfer
  149.        /Ytransfer STCtransfer
  150.        /Ktransfer STCtransfer
  151.  
  152.        /Ccoding   STCtransfer
  153.        /Mcoding   STCtransfer
  154.        /Ycoding   STCtransfer
  155.        /Kcoding   STCtransfer
  156.  
  157.      } ifelse
  158.  
  159.      counttomark 0 ne 
  160.         {currentdevice putdeviceprops pop}{cleartomark}ifelse
  161.  
  162. % decativate predefined correction
  163.  
  164.      {} dup dup currenttransfer setcolortransfer
  165.  
  166.   }{
  167.     (%%[ stcolor.ps: currentdevice is not stcolor - ignored ]%%\n) print
  168.   } ifelse
  169. }{
  170.   (%%[ stcolor.ps: not interpreted by AFPL Ghostscript - ignored ]%%\n) print
  171. } ifelse
  172.