home *** CD-ROM | disk | FTP | other *** search
/ Freelog Special Freeware 31 / FreelogHS31.iso / PDF / Ghostscript / gs860w32.exe / gs8.60 / lib / gs_devcs.ps < prev    next >
Text File  |  2006-11-22  |  7KB  |  251 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 7216 2006-11-22 01:26:37Z ray $
  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. % <color_space> <color_space_name> cs_substitute_DeviceRGB_for_PDFX_or_PDFA <color_space1> <color_space2>
  86. /cs_substitute_DeviceRGB_for_PDFX_or_PDFA
  87. { systemdict /PDFX .knownget not { false } if
  88.   systemdict /PDFA .knownget not { false } if
  89.   or {
  90.     dup /ColorSpace resourcestatus {
  91.       pop pop
  92.     } {
  93.       (Error: Need a /DefaultRGB /ColorSpace resource for generating a PDF/X or PDF/A document.) =
  94.       /cs_substitute_DeviceRGB_for_PDFX_or_PDFA cvx /undefined signalerror
  95.     } ifelse
  96.     /ColorSpace findresource
  97.   } {
  98.     //cs_substitute_generic exec
  99.   } ifelse   
  100. } bind def
  101.  
  102. colorspacedict
  103.  
  104. dup
  105. /DeviceGray
  106.   mark
  107.     /cs_potential_indexed_base true
  108.     /cs_potential_pattern_base true
  109.     /cs_potential_alternate true
  110.     /cs_potential_icc_alternate true
  111.     /cs_get_ncomps //ncomps_1
  112.     /cs_get_range  //get_range_1
  113.     /cs_get_default_color { pop 0.0 } bind
  114.     /cs_get_currentgray //pop_1
  115.     /cs_get_currentrgb { pop dup dup } bind
  116.     /cs_get_currentcmyk { pop 1.0 exch sub 0.0 0.0 0.0 4 -1 roll } bind
  117.     /cs_validate {}
  118.  
  119.     /cs_substitute
  120.       { /DefaultGray //cs_substitute_generic exec
  121.       }
  122.     bind
  123.  
  124.     /cs_prepare {}
  125.     /cs_install { pop 0 .setdevcspace } bind
  126.     /cs_prepare_color //validate_1
  127.     /cs_complete_setcolor //pop_1
  128.   .dicttomark
  129. put
  130.  
  131.  
  132. /DeviceRGB
  133.   mark
  134.     /cs_potential_indexed_base true
  135.     /cs_potential_pattern_base true
  136.     /cs_potential_alternate true
  137.     /cs_potential_icc_alternate true
  138.     /cs_get_ncomps //ncomps_3
  139.     /cs_get_range  //get_range_3
  140.     /cs_get_default_color { pop 0.0 0.0 0.0 } bind
  141.     /cs_get_currentgray { pop //rgb_2_gray exec } bind
  142.     /cs_get_currentrgb //pop_1
  143.  
  144.     % to convert to cmyk use blackgeneration and undercolorremoval
  145.     /cs_get_currentcmyk
  146.       {
  147.         pop
  148.  
  149.         % convert to subtractive (CMY) color space
  150.         3
  151.           { 1.0 exch sub 3 1 roll }
  152.         repeat
  153.  
  154.         % find the minimum (initial k component)
  155.         3 copy
  156.         2
  157.           {
  158.             2 copy gt
  159.               { exch }
  160.             if
  161.             pop
  162.           }
  163.         repeat
  164.  
  165.         % apply undercolorremoval
  166.         dup 5 1 roll currentundercolorremoval exec cvr 4 1 roll
  167.         3
  168.           { 3 index sub //bound_0_1 exec 3 1 roll }
  169.         repeat
  170.  
  171.         % apply blackgeneration
  172.         5 3 roll pop currentblackgeneration exec cvr //bound_0_1 exec
  173.       }
  174.     bind
  175.  
  176.     /cs_validate {}
  177.  
  178.     /cs_substitute
  179.       { /DefaultRGB //cs_substitute_DeviceRGB_for_PDFX_or_PDFA exec
  180.       }
  181.     bind
  182.  
  183.     /cs_prepare {}
  184.     /cs_install { pop 1 .setdevcspace } bind
  185.     /cs_prepare_color //validate_3
  186.     /cs_complete_setcolor //pop_1
  187.   .dicttomark
  188. put
  189.  
  190. end     % .cspace_util
  191. .setglobal
  192.  
  193.  
  194. % Only create the DeviceCMYK color space if setcolorscreen is present
  195. /setcolorscreen where
  196.   { pop }
  197.   { currentfile closefile }
  198. ifelse
  199.  
  200.  
  201. .currentglobal true .setglobal
  202. .cspace_util begin
  203.  
  204. colorspacedict
  205. /DeviceCMYK
  206.   mark
  207.     /cs_potential_indexed_base true
  208.     /cs_potential_pattern_base true
  209.     /cs_potential_alternate true
  210.     /cs_potential_icc_alternate true
  211.     /cs_get_ncomps //ncomps_4
  212.     /cs_get_range  //get_range_4
  213.     /cs_get_default_color { pop 0.0 0.0 0.0 1.0 } bind
  214.  
  215.     /cs_get_currentgray
  216.       { pop 4 1 roll //rgb_2_gray exec add 1.0 exch sub //bound_0_1 exec }
  217.     bind
  218.  
  219.     /cs_get_currentrgb 
  220.       {
  221.         pop
  222.         4 1 roll 3
  223.           { 3 index add  1.0 exch sub //bound_0_1 exec 3 1 roll }
  224.         repeat
  225.         4 -1 roll pop
  226.       }
  227.     bind
  228.  
  229.     /cs_get_currentcmyk //pop_1
  230.  
  231.     /cs_validate {}
  232.  
  233.     /cs_substitute
  234.       { /DefaultCMYK //cs_substitute_generic exec
  235.       }
  236.     bind
  237.  
  238.     /cs_prepare {}
  239.     /cs_install { pop 2 .setdevcspace } bind
  240.     /cs_prepare_color //validate_4
  241.     /cs_complete_setcolor //pop_1
  242.   .dicttomark
  243. put
  244.  
  245. currentdict /..includecolorspace .undef
  246. currentdict /cs_substitute_generic .undef
  247.  
  248. end     % .cspace_util
  249. .setglobal
  250.  
  251.