% 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_cspace.ps 8962 2008-08-11 14:16:18Z ken $ % basic colorspace mechanism % % There have been some major changes to the PostScript colour handling. % In particular, the vast majority of the colour space code has been % converted from PostScript to C. This file has been extensively % modified, as has gs_icc.ps. The remaining PostScript files which % previously implemented colour space handling; gs_ciecs2.ps, gs_ciecs3.ps % gs_devcs.ps, gs_devn.ps, gs_devpxl.ps, gs_indxd.ps, gs_patrn.ps and % gs_sepr.ps have been superceded by the C code and removed. % % gs_lev2.ps and gs_ll3.ps have also been modified so that they no longer % attempt to execute these PostScript files. % .currentglobal true .setglobal systemdict begin % % gs_res.ps, and possibly other files, use this dictionary. Formerly % in cspace_util, moved to systemdict. % 20 dict dup /colorspacedict exch def begin % colorspacedict % % gs_res.ps uses these entries in colorspacedict % to populate the ColorSpaceFamily resource, so we need % to add the supported spaces. % /DeviceGray [] def /DeviceRGB [] def /DeviceCMYK [] def end % colorspacedict % % Global, read-only, unpacked, array-form device color spaces % We need to return an array argument in response to currentcolorspace % even if the argument presented to setcolorspace was a simple device % space name. Not only that, but in order to satisfy some Adobe % applications, it must be the *same* array every time. The only way % to do that is to define an appropriate set initial arrays and always return % one of those. These arrays are defined here. % /DeviceGray_array /DeviceGray 1 array astore readonly def /DeviceRGB_array /DeviceRGB 1 array astore readonly def /DeviceCMYK_array /DeviceCMYK 1 array astore readonly def % % - initgraphics - % % The internal routine gs_initgraphics doesn't (re)set the color space, % so we must redefine the operation to do it here. % % /initgraphics { initgraphics systemdict /DeviceGray_array get setcolorspace } .bind odef % % These routines used for the NOSUBSTDEVICECOLORS switch. This prevents % substitution of DeviceGray, DeviceRGB and DeviceCMYK with a Default* % colour space when /UseCIEColors is true. If the job includes a % definition of /DefaltGray, DefaultRGB or DefaultCMYK then it also executes % .includecolorspace to allow the device to record the substitute space. % /..page_default_spaces 3 dict def % % Used internally to retrieve any relevant default colour space. % % ..nosubstdevicetest false % [space] true % % If the boolean is true then the C code must set the additional colour space % and execute .includecolorspace before finally setting a DeviceGray space. % /..nosubstdevicetest { false mark 3 -1 roll % If we have already recorded this space, don't repeat it. systemdict /..page_default_spaces get 1 index known { cleartomark } { { % Check to see if this space was defined by defineresource, if so then % the job defined it, otherwise its the usual default, so ignore it. dup /ColorSpace resourcestatus { pop 0 eq { % Default* defined by defineresource systemdict /..page_default_spaces get 1 index //true put dup /ColorSpace findresource 4 2 roll pop pop true }{ cleartomark } ifelse }{ cleartomark } ifelse } stopped {cleartomark}if } ifelse }bind def % % ..includecolorspace - % /..includecolorspace { % If we have already recorded this space, don't repeat it. systemdict /..page_default_spaces get 1 index known { pop } { mark exch { % Check to see if this space was defined by defineresource, if so then % the job defined it, otherwise its the usual default, so ignore it. dup /ColorSpace resourcestatus { pop 0 eq { % Job defined /Default*, so record it and allow the device access to it systemdict /..page_default_spaces get 1 index //true put gsave { dup /ColorSpace findresource //setcolorspace exec .includecolorspace } stopped pop grestore } if } if } stopped pop cleartomark } ifelse } bind def % % cs_substitute_generic % /cs_substitute_generic { .getuseciecolor {NOSUBSTDEVICECOLORS { //..includecolorspace exec dup } { /ColorSpace findresource } ifelse } { pop dup } ifelse } bind def % % cs_substitute_DeviceRGB_for_PDFX_or_PDFA % /cs_substitute_DeviceRGB_for_PDFX_or_PDFA { systemdict /PDFX .knownget not { false } if systemdict /PDFA .knownget not { false } if or { dup /ColorSpace resourcestatus { pop pop } { (Error: Need a /DefaultRGB /ColorSpace resource for generating a PDF/X or PDF/A document.) = /cs_substitute_DeviceRGB_for_PDFX_or_PDFA cvx /undefined signalerror } ifelse /ColorSpace findresource } { //cs_substitute_generic exec } ifelse } bind def end % % used to convert the DataSource of an ICCBased colour space into a % file, if it isn't one already. This is required because the current % implementation of ICC spaces requires the data source to be a file. % This routine is *only* called from the PostScript interpreter when % setting an ICCBased space with a string data source. % /.convertICCSource { % make DataSource a file dup 1 get /DataSource get type /stringtype eq { % build all new structures in local VM .currentglobal exch //false .setglobal % check if we need to copy the color space and dictionary 2 copy eq { dup length array copy dup 1 2 copy get dup length dict copy put } if % fetch DataSource, setting up stack for multiple puts dup 1 2 copy get dup /DataSource 2 copy get % convert the string into a file /ReusableStreamDecode filter % put the file into the dictioary, the dictionary into the array put put % restore the VM mode exch .setglobal } if } bind def % % Set the initial device space % systemdict /DeviceGray_array get setcolorspace .setglobal