ref: 662fd71e115b1cbd35233f2d64f7828bb9bd3f59
dir: /sys/lib/ghostscript/gs_indxd.ps/
% 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