ref: 4e04e03142a4e43c208dcf62ca165ad3a05dcc96
dir: /sys/lib/ghostscript/gs_devn.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_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 .dicttomark put end % .cspace_util .setglobal