home *** CD-ROM | disk | FTP | other *** search
/ jppd.dyndns.org / jppd.dyndns.org.tar / jppd.dyndns.org / QUERYPRO / Impressora_PDF / converter.exe / GPLGS / gs_devcs.ps < prev    next >
Text File  |  2003-12-13  |  6KB  |  235 lines
  1. %    Copyright (C) 2002 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: gs_devcs.ps,v 1.1.2.1 2003/12/12 22:07:58 giles Exp $
  17. % Device-specific color space method dictionaries.
  18.  
  19. %
  20. % This file implements the method dictionaries for the Device-specific
  21. % color spaces. See gs_cspace.ps for information.
  22. %
  23. % Note that, because these color spaces are parameter-less, no color
  24. % space validation is required: if we can get to the color space methods,
  25. % we know the color space is legitimate.
  26. %
  27. % The colorspace substitution routines for these color spaces
  28. % (cs_substitute) will fail in a Level 1 system, but this is not a
  29. % problem as .getuseciecolor will always return false for such systems.
  30. %
  31. .currentglobal true .setglobal
  32. .cspace_util begin
  33.  
  34. %
  35. %   <r>  <g>  <b>   rgb_2_gray   <gray>
  36. %
  37. % Convert RGB colors to gray. This includes a special check for
  38. % r == g == b, and avoids roundoff error if this is the case.
  39. %
  40. /rgb_2_gray
  41.   {
  42.     3 copy 1 index eq 3 1 roll eq and
  43.       { pop pop }
  44.       { .11 mul exch .59 mul add exch .3 mul add }
  45.     ifelse
  46.   }
  47. bind def
  48.  
  49. systemdict /..page_default_spaces 3 dict put
  50.  
  51. % <color_space_name> ..includecolorspace -
  52. /..includecolorspace
  53. { % Only includes ones explicitly defined by the document.
  54.   systemdict /..page_default_spaces get 1 index known {
  55.     pop
  56.   } {
  57.     mark exch
  58.     { dup /ColorSpace resourcestatus {
  59.         pop 0 eq {
  60.           systemdict /..page_default_spaces get 1 index //true put
  61.           gsave
  62.           { dup /ColorSpace findresource //_setcolorspace_nosub exec .includecolorspace
  63.           } stopped pop
  64.           grestore
  65.         } if
  66.       } if
  67.     } stopped pop
  68.     cleartomark
  69.   } ifelse
  70. } bind def
  71.  
  72. % <color_space> <color_space_name> cs_substitute_generic <color_space1> <color_space2>
  73. /cs_substitute_generic
  74. { .getuseciecolor
  75.     { NOSUBSTDEVICECOLORS 
  76.         { //..includecolorspace exec dup }
  77.         { /ColorSpace findresource }
  78.       ifelse
  79.     }
  80.     { pop dup }
  81.   ifelse
  82. }
  83. bind def
  84.  
  85.  
  86. colorspacedict
  87.  
  88. dup
  89. /DeviceGray
  90.   mark
  91.     /cs_potential_indexed_base true
  92.     /cs_potential_pattern_base true
  93.     /cs_potential_alternate true
  94.     /cs_potential_icc_alternate true
  95.     /cs_get_ncomps //ncomps_1
  96.     /cs_get_range  //get_range_1
  97.     /cs_get_default_color { pop 0 } bind
  98.     /cs_get_currentgray //pop_1
  99.     /cs_get_currentrgb { pop dup dup } bind
  100.     /cs_get_currentcmyk { pop 1 exch sub 0 0 0 4 -1 roll } bind
  101.     /cs_validate {}
  102.  
  103.     /cs_substitute
  104.       { /DefaultGray //cs_substitute_generic exec
  105.       }
  106.     bind
  107.  
  108.     /cs_prepare {}
  109.     /cs_install { pop 0 .setdevcspace } bind
  110.     /cs_prepare_color //validate_1
  111.     /cs_complete_setcolor //pop_1
  112.   .dicttomark
  113. put
  114.  
  115.  
  116. /DeviceRGB
  117.   mark
  118.     /cs_potential_indexed_base true
  119.     /cs_potential_pattern_base true
  120.     /cs_potential_alternate true
  121.     /cs_potential_icc_alternate true
  122.     /cs_get_ncomps //ncomps_3
  123.     /cs_get_range  //get_range_3
  124.     /cs_get_default_color { pop 0 0 0 } bind
  125.     /cs_get_currentgray { pop //rgb_2_gray exec } bind
  126.     /cs_get_currentrgb //pop_1
  127.  
  128.     % to convert to cmyk use blackgeneration and undercolorremoval
  129.     /cs_get_currentcmyk
  130.       {
  131.         pop
  132.  
  133.         % convert to subtractive (CMY) color space
  134.         3
  135.           { 1 exch sub 3 1 roll }
  136.         repeat
  137.  
  138.         % find the minimum (initial k component)
  139.         3 copy
  140.         2
  141.           {
  142.             2 copy gt
  143.               { exch }
  144.             if
  145.             pop
  146.           }
  147.         repeat
  148.  
  149.         % apply undercolorremoval
  150.         dup 5 1 roll currentundercolorremoval exec 4 1 roll
  151.         3
  152.           { 3 index sub //bound_0_1 exec 3 1 roll }
  153.         repeat
  154.  
  155.         % apply blackgeneration
  156.         5 3 roll pop currentblackgeneration exec //bound_0_1 exec
  157.       }
  158.     bind
  159.  
  160.     /cs_validate {}
  161.  
  162.     /cs_substitute
  163.       { /DefaultRGB //cs_substitute_generic exec
  164.       }
  165.     bind
  166.  
  167.     /cs_prepare {}
  168.     /cs_install { pop 1 .setdevcspace } bind
  169.     /cs_prepare_color //validate_3
  170.     /cs_complete_setcolor //pop_1
  171.   .dicttomark
  172. put
  173.  
  174. end     % .cspace_util
  175. .setglobal
  176.  
  177.  
  178. % Only create the DeviceCMYK color space if setcolorscreen is present
  179. /setcolorscreen where
  180.   { pop }
  181.   { currentfile closefile }
  182. ifelse
  183.  
  184.  
  185. .currentglobal true .setglobal
  186. .cspace_util begin
  187.  
  188. colorspacedict
  189. /DeviceCMYK
  190.   mark
  191.     /cs_potential_indexed_base true
  192.     /cs_potential_pattern_base true
  193.     /cs_potential_alternate true
  194.     /cs_potential_icc_alternate true
  195.     /cs_get_ncomps //ncomps_4
  196.     /cs_get_range  //get_range_4
  197.     /cs_get_default_color { pop 0 0 0 1 } bind
  198.  
  199.     /cs_get_currentgray
  200.       { pop 4 1 roll //rgb_2_gray exec add 1 exch sub //bound_0_1 exec }
  201.     bind
  202.  
  203.     /cs_get_currentrgb 
  204.       {
  205.         pop
  206.         4 1 roll 3
  207.           { 3 index add  1 exch sub //bound_0_1 exec 3 1 roll }
  208.         repeat
  209.         4 -1 roll pop
  210.       }
  211.     bind
  212.  
  213.     /cs_get_currentcmyk //pop_1
  214.  
  215.     /cs_validate {}
  216.  
  217.     /cs_substitute
  218.       { /DefaultCMYK //cs_substitute_generic exec
  219.       }
  220.     bind
  221.  
  222.     /cs_prepare {}
  223.     /cs_install { pop 2 .setdevcspace } bind
  224.     /cs_prepare_color //validate_4
  225.     /cs_complete_setcolor //pop_1
  226.   .dicttomark
  227. put
  228.  
  229. currentdict /..includecolorspace .undef
  230. currentdict /cs_substitute_generic .undef
  231.  
  232. end     % .cspace_util
  233. .setglobal
  234.  
  235.