%    Copyright (C) 2002 Aladdin Enterprises.  All rights reserved.% % This software is provided AS-IS with no warranty, either express or% implied.% % This software is distributed under license and may not be copied,% modified or distributed except as expressly authorized under the terms% of the license contained in the file LICENSE in this distribution.% % For more information about licensing, please refer to% http://www.ghostscript.com/licensing/. For information on% commercial licensing, go to http://www.artifex.com/licensing/ or% contact Artifex Software, Inc., 101 Lucas Valley Road #110,% San Rafael, CA  94903, U.S.A., +1(415)492-9861. % $Id: gs_devcs.ps,v 1.7 2005/09/12 11:34:50 leonardo Exp $% Device-specific color space method dictionaries. %% This file implements the method dictionaries for the Device-specific% color spaces. See gs_cspace.ps for information.%% Note that, because these color spaces are parameter-less, no color% space validation is required: if we can get to the color space methods,% we know the color space is legitimate.%% The colorspace substitution routines for these color spaces% (cs_substitute) will fail in a Level 1 system, but this is not a% problem as .getuseciecolor will always return false for such systems.%.currentglobal true .setglobal.cspace_util begin %%   <r>  <g>  <b>   rgb_2_gray   <gray>%% Convert RGB colors to gray. This includes a special check for% r == g == b, and avoids roundoff error if this is the case.%/rgb_2_gray  {    3 copy 1 index eq 3 1 roll eq and      { pop pop }      { .11 mul exch .59 mul add exch .3 mul add }    ifelse  }bind def systemdict /..page_default_spaces 3 dict put % <color_space_name> ..includecolorspace -/..includecolorspace{ % Only includes ones explicitly defined by the document.  systemdict /..page_default_spaces get 1 index known {    pop  } {    mark exch    { dup /ColorSpace resourcestatus {        pop 0 eq {          systemdict /..page_default_spaces get 1 index //true put          gsave          { dup /ColorSpace findresource //_setcolorspace_nosub exec .includecolorspace          } stopped pop          grestore        } if      } if    } stopped pop    cleartomark  } ifelse} bind def % <color_space> <color_space_name> cs_substitute_generic <color_space1> <color_space2>/cs_substitute_generic{ .getuseciecolor    { NOSUBSTDEVICECOLORS         { //..includecolorspace exec dup }        { /ColorSpace findresource }      ifelse    }    { pop dup }  ifelse}bind def % <color_space> <color_space_name> cs_substitute_DeviceRGB_for_PDFX <color_space1> <color_space2>/cs_substitute_DeviceRGB_for_PDFX{ systemdict /PDFX .knownget not { false } if {    dup /ColorSpace resourcestatus {      pop pop    } {      (Error: Need a /DefaultRGB /ColorSpace resource for generating a PDF/X document.) =      /cs_substitute_DeviceRGB_for_PDFX /undefined signalerror    } ifelse    /ColorSpace findresource  } {    //cs_substitute_generic exec  } ifelse   } bind def colorspacedict dup/DeviceGray  mark    /cs_potential_indexed_base true    /cs_potential_pattern_base true    /cs_potential_alternate true    /cs_potential_icc_alternate true    /cs_get_ncomps //ncomps_1    /cs_get_range  //get_range_1    /cs_get_default_color { pop 0 } bind    /cs_get_currentgray //pop_1    /cs_get_currentrgb { pop dup dup } bind    /cs_get_currentcmyk { pop 1 exch sub 0 0 0 4 -1 roll } bind    /cs_validate {}     /cs_substitute      { /DefaultGray //cs_substitute_generic exec      }    bind     /cs_prepare {}    /cs_install { pop 0 .setdevcspace } bind    /cs_prepare_color //validate_1    /cs_complete_setcolor //pop_1  .dicttomarkput  /DeviceRGB  mark    /cs_potential_indexed_base true    /cs_potential_pattern_base true    /cs_potential_alternate true    /cs_potential_icc_alternate true    /cs_get_ncomps //ncomps_3    /cs_get_range  //get_range_3    /cs_get_default_color { pop 0 0 0 } bind    /cs_get_currentgray { pop //rgb_2_gray exec } bind    /cs_get_currentrgb //pop_1     % to convert to cmyk use blackgeneration and undercolorremoval    /cs_get_currentcmyk      {        pop         % convert to subtractive (CMY) color space        3          { 1 exch sub 3 1 roll }        repeat         % find the minimum (initial k component)        3 copy        2          {            2 copy gt              { exch }            if            pop          }        repeat         % apply undercolorremoval        dup 5 1 roll currentundercolorremoval exec 4 1 roll        3          { 3 index sub //bound_0_1 exec 3 1 roll }        repeat         % apply blackgeneration        5 3 roll pop currentblackgeneration exec //bound_0_1 exec      }    bind     /cs_validate {}     /cs_substitute      { /DefaultRGB //cs_substitute_DeviceRGB_for_PDFX exec      }    bind     /cs_prepare {}    /cs_install { pop 1 .setdevcspace } bind    /cs_prepare_color //validate_3    /cs_complete_setcolor //pop_1  .dicttomarkput end     % .cspace_util.setglobal  % Only create the DeviceCMYK color space if setcolorscreen is present/setcolorscreen where  { pop }  { currentfile closefile }ifelse  .currentglobal true .setglobal.cspace_util begin colorspacedict/DeviceCMYK  mark    /cs_potential_indexed_base true    /cs_potential_pattern_base true    /cs_potential_alternate true    /cs_potential_icc_alternate true    /cs_get_ncomps //ncomps_4    /cs_get_range  //get_range_4    /cs_get_default_color { pop 0 0 0 1 } bind     /cs_get_currentgray      { pop 4 1 roll //rgb_2_gray exec add 1 exch sub //bound_0_1 exec }    bind     /cs_get_currentrgb       {        pop        4 1 roll 3          { 3 index add  1 exch sub //bound_0_1 exec 3 1 roll }        repeat        4 -1 roll pop      }    bind     /cs_get_currentcmyk //pop_1     /cs_validate {}     /cs_substitute      { /DefaultCMYK //cs_substitute_generic exec      }    bind     /cs_prepare {}    /cs_install { pop 2 .setdevcspace } bind    /cs_prepare_color //validate_4    /cs_complete_setcolor //pop_1  .dicttomarkput currentdict /..includecolorspace .undefcurrentdict /cs_substitute_generic .undef end     % .cspace_util.setglobal