%    Copyright (C) 2001, 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_devn.ps,v 1.3 2002/11/13 20:23:10 alexcher Exp $% DeviceN color space method dictionary; this depends on gs_sepr.ps  % verify that DeviceN and Separation color spaces are supported/.setdevicenspace where  {    pop    /.setseparationspace where      { pop //false }      { //true }    ifelse  }  { //true }ifelse  { currentfile closefile }if .currentglobal true .setglobal.cspace_util begin  %%   <c1> ... <cm>  <array>   apply_devn_tint_xform   <c1>' ... <cn>'  <array>%% Apply the tint transformation for the DeviceN color intensity values./apply_devn_tint_xform  {    dup 1 get length 1 add exch    mark 2 index 2 add 2 roll    index 3 get exec    counttomark 2 add -2 roll pop  }bind def   colorspacedict/DeviceN  mark    /cs_potential_indexed_base true    /cs_potential_pattern_base true    /cs_potential_alternate false    /cs_potential_icc_alternate false    /cs_get_ncomps { 1 get length } bind    /cs_get_range { 1 get length [ exch { 0 1 } repeat ] } bind    /cs_get_default_color { 1 get length { 1 } repeat } bind     /cs_get_currentgray      { //apply_devn_tint_xform exec 2 get //.cs_get_currentgray exec }    bind    /cs_get_currentrgb      { //apply_devn_tint_xform exec 2 get //.cs_get_currentrgb exec }    bind    /cs_get_currentcmyk      { //apply_devn_tint_xform exec 2 get //.cs_get_currentcmyk exec }    bind     % a lot of validation is done by the cs_validate method    /cs_validate      {        //check_array exec        dup 1 get //check_array exec          {            type dup /nametype ne exch /stringtype ne and              //setcspace_typecheck            if          }        forall        dup 2 get //.cs_validate exec //.cs_potential_alternate exec not          //setcspace_rangecheck        if        dup 3 get //check_array exec xcheck not          //setcspace_typecheck        if      }    bind     % substitute the base space if appropriate    /cs_substitute      {        dup 2 get //.cs_substitute exec 2 copy eq          { pop pop dup }          {            % retain only the new alternate space            exch pop             % build all new structures in local VM            .currentglobal 3 1 roll //false .setglobal             % construct a new array and insert the new base color space            1 index dup length array copy dup 2 4 -1 roll put             % restore VM mode            3 -1 roll .setglobal          }        ifelse      }    bind     %    % The Ghostscript interpreter works better when tinttransform procedures    % are translated into functions. Attempt to do that here.    %    /cs_prepare //converttinttransform     %    % Install the current color space.    %    % The current Ghostscript color space implementation requires that    % color spaces that provide a base or alternative color space set    % that base/alternative color space to be the current color space    % before attempting to set the original color space.    %    % Beginning with Acrobat 5, PDF apparently supports 1-component    % DeviceN color spaces with the single component "All" (the "PDF    % Reference", 3rd ed., p. 206 still describes this as illegal).    % We translate such calls to Separation color spaces.    %    /cs_install      {        % save the current color space        currentcolorspace         % set the base color space as the current color space        1 index 2 get //forcesetcolorspace         % set the indexed color space; restore the earlier space on error        mark 2 index        dup 1 get dup length 1 eq exch 0 get /All eq and          {            dup length array copy            dup 0 /Separation put            dup 1 /All put              { .setseparationspace }          }          { { .setdevicenspace } }        ifelse        stopped          { cleartomark setcolorspace stop }          { pop pop pop }        ifelse      }    bind     /cs_prepare_color { dup 1 get length //check_num_stack exec pop } bind     %    % If a DeviceN color space is not supported in native mode by    % the current process color model, Adobe implementations will always    % execute the tint transform procedure when setcolor is invoked.    % Ghostscript may have turned this transform into a sampled function,    % and even if this is not the case, will have sampled the transform    % when the color space is first set. Some applications depend on    % the Adobe behavior, so we implement it via the cs_complete_setcolor    % method.    %    /cs_complete_setcolor      {        .usealternate          {            pop currentcolor            currentcolorspace 3 get exec            currentcolorspace 2 get            //clear_setcolor_operands exec          }          { pop }        ifelse      }    bind   .dicttomarkput end     % .cspace_util.setglobal