Subversion Repositories planix.SVN

%    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_indxd.ps,v 1.2 2002/11/13 20:23:10 alexcher Exp $

% Indexed color space method dictionary

% verify that Indexed color spaces are supported

/.setindexedspace where

  { pop }

  { currentfile closefile }

ifelse

.currentglobal true .setglobal

.cspace_util begin

%

%   <num>  <array>   restrict_index   <int>  <array>

%

% Restrict the operand to setcolor for an Indexed color space to be an

% integer in the applicable range.

%

/restrict_index

  {

    exch round cvi

    dup 0 lt

      { pop 0 }

      {

        1 index 2 get 2 copy gt

          { exch }

        if

        pop

      } 

    ifelse

    exch

  }

bind def

%

%   <num>  <array>   get_indexed_base_color   <c1> ... <cn>  <array>

%

% Get the base color corresponding to an indexed color value.

%

/get_indexed_base_color

  {

    % just in case, set the index into the appropriate range

    //restrict_index exec

    % lookup in the string or use the lookup proc

    mark 1 index 3 get dup type /stringtype eq

      {

        2 index 1 get //.cs_get_ncomps exec dup 6 -1 roll mul exch getinterval

          { 255 div }

        forall

      }

      { 4 -1 roll exch exec }

    ifelse

    counttomark 2 add -2 roll pop

  }

bind def

colorspacedict

/Indexed

  mark

    /cs_potential_indexed_base false

    /cs_potential_pattern_base true

    /cs_potential_alternate false

    /cs_potential_icc_alternate false

    /cs_get_ncomps //ncomps_1

    /cs_get_range { 0 exch 2 get 2 array astore } bind

    /cs_get_default_color { pop 0 } bind

    /cs_get_currentgray

      { //get_indexed_base_color exec 1 get //.cs_get_currentgray exec }

    bind

    /cs_get_currentrgb

      { //get_indexed_base_color exec 1 get //.cs_get_currentrgb exec }

    bind

    /cs_get_currentcmyk

      { //get_indexed_base_color exec 1 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 //.cs_validate exec //.cs_potential_indexed_base exec not

          //setcspace_rangecheck

        if

        dup 2 get dup type /integertype ne

          //setcspace_typecheck

          {

            dup 0 lt exch 4095 gt or

              //setcspace_rangecheck

            if

          }

        ifelse

        dup 3 get dup type /stringtype eq

          {

            length

            1 index dup 2 get 1 add exch 1 get //.cs_get_ncomps exec mul

            lt

              //setcspace_rangecheck

            if

          }

          {

            //check_array exec xcheck not

              //setcspace_typecheck

            if

          }

        ifelse

      }

    bind

    % substitute the base space if appropriate

    /cs_substitute

      {

        dup 1 get //.cs_substitute exec 2 copy eq

          { pop pop dup }

          {

            % retain only the new base 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 1 4 -1 roll put

            % restore VM mode

            3 -1 roll .setglobal

          }

        ifelse

      }

    bind

    /cs_prepare {}

    %

    % Install the current color space. Note that the alternative color

    % space will already have been set as 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.

    %

    /cs_install

      {

        % save the current color space

        currentcolorspace

        % set the base color space as the current color space

        1 index 1 get //forcesetcolorspace

        % set the indexed color space; restore the earlier space on error

        mark 2 index

          { .setindexedspace }

        stopped

          { cleartomark setcolorspace stop }

          { pop pop pop }

        ifelse

      }

    bind

    /cs_prepare_color //validate_1

    %

    % Adobe implementations always execute a lookup procedure when setcolor

    % is invoked. Ghostscript samples the lookup procedure when

    % setcolorspace is invoked, and then does not access it again. In the

    % unlikely event that an application depends on the Adobe-specific

    % behavior, it is replicated in this method.

    %

    /cs_complete_setcolor

      {

        3 get dup type /stringtype eq

          { pop }

          {

            currentcolor exch exec

            currentcolorspace 1 get //clear_setcolor_operands exec

          }

        ifelse

      }

    bind

  .dicttomark

put

end     % .cspace_util

.setglobal