249 lines
6.1 KiB
PostScript
249 lines
6.1 KiB
PostScript
% 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_devcs.ps,v 1.7 2005/09/12 11:34:50 leonardo Exp $
|
|
% Device-specific color space method dictionaries.
|
|
|
|
%
|
|
% This file implements the method dictionaries for the Device-specific
|
|
% color spaces. See gs_cspace.ps for information.
|
|
%
|
|
% Note that, because these color spaces are parameter-less, no color
|
|
% space validation is required: if we can get to the color space methods,
|
|
% we know the color space is legitimate.
|
|
%
|
|
% The colorspace substitution routines for these color spaces
|
|
% (cs_substitute) will fail in a Level 1 system, but this is not a
|
|
% problem as .getuseciecolor will always return false for such systems.
|
|
%
|
|
.currentglobal true .setglobal
|
|
.cspace_util begin
|
|
|
|
%
|
|
% <r> <g> <b> rgb_2_gray <gray>
|
|
%
|
|
% Convert RGB colors to gray. This includes a special check for
|
|
% r == g == b, and avoids roundoff error if this is the case.
|
|
%
|
|
/rgb_2_gray
|
|
{
|
|
3 copy 1 index eq 3 1 roll eq and
|
|
{ pop pop }
|
|
{ .11 mul exch .59 mul add exch .3 mul add }
|
|
ifelse
|
|
}
|
|
bind def
|
|
|
|
systemdict /..page_default_spaces 3 dict put
|
|
|
|
% <color_space_name> ..includecolorspace -
|
|
/..includecolorspace
|
|
{ % Only includes ones explicitly defined by the document.
|
|
systemdict /..page_default_spaces get 1 index known {
|
|
pop
|
|
} {
|
|
mark exch
|
|
{ dup /ColorSpace resourcestatus {
|
|
pop 0 eq {
|
|
systemdict /..page_default_spaces get 1 index //true put
|
|
gsave
|
|
{ dup /ColorSpace findresource //_setcolorspace_nosub exec .includecolorspace
|
|
} stopped pop
|
|
grestore
|
|
} if
|
|
} if
|
|
} stopped pop
|
|
cleartomark
|
|
} ifelse
|
|
} bind def
|
|
|
|
% <color_space> <color_space_name> cs_substitute_generic <color_space1> <color_space2>
|
|
/cs_substitute_generic
|
|
{ .getuseciecolor
|
|
{ NOSUBSTDEVICECOLORS
|
|
{ //..includecolorspace exec dup }
|
|
{ /ColorSpace findresource }
|
|
ifelse
|
|
}
|
|
{ pop dup }
|
|
ifelse
|
|
}
|
|
bind def
|
|
|
|
% <color_space> <color_space_name> cs_substitute_DeviceRGB_for_PDFX <color_space1> <color_space2>
|
|
/cs_substitute_DeviceRGB_for_PDFX
|
|
{ systemdict /PDFX .knownget not { false } if {
|
|
dup /ColorSpace resourcestatus {
|
|
pop pop
|
|
} {
|
|
(Error: Need a /DefaultRGB /ColorSpace resource for generating a PDF/X document.) =
|
|
/cs_substitute_DeviceRGB_for_PDFX /undefined signalerror
|
|
} ifelse
|
|
/ColorSpace findresource
|
|
} {
|
|
//cs_substitute_generic exec
|
|
} ifelse
|
|
} bind def
|
|
|
|
colorspacedict
|
|
|
|
dup
|
|
/DeviceGray
|
|
mark
|
|
/cs_potential_indexed_base true
|
|
/cs_potential_pattern_base true
|
|
/cs_potential_alternate true
|
|
/cs_potential_icc_alternate true
|
|
/cs_get_ncomps //ncomps_1
|
|
/cs_get_range //get_range_1
|
|
/cs_get_default_color { pop 0 } bind
|
|
/cs_get_currentgray //pop_1
|
|
/cs_get_currentrgb { pop dup dup } bind
|
|
/cs_get_currentcmyk { pop 1 exch sub 0 0 0 4 -1 roll } bind
|
|
/cs_validate {}
|
|
|
|
/cs_substitute
|
|
{ /DefaultGray //cs_substitute_generic exec
|
|
}
|
|
bind
|
|
|
|
/cs_prepare {}
|
|
/cs_install { pop 0 .setdevcspace } bind
|
|
/cs_prepare_color //validate_1
|
|
/cs_complete_setcolor //pop_1
|
|
.dicttomark
|
|
put
|
|
|
|
|
|
/DeviceRGB
|
|
mark
|
|
/cs_potential_indexed_base true
|
|
/cs_potential_pattern_base true
|
|
/cs_potential_alternate true
|
|
/cs_potential_icc_alternate true
|
|
/cs_get_ncomps //ncomps_3
|
|
/cs_get_range //get_range_3
|
|
/cs_get_default_color { pop 0 0 0 } bind
|
|
/cs_get_currentgray { pop //rgb_2_gray exec } bind
|
|
/cs_get_currentrgb //pop_1
|
|
|
|
% to convert to cmyk use blackgeneration and undercolorremoval
|
|
/cs_get_currentcmyk
|
|
{
|
|
pop
|
|
|
|
% convert to subtractive (CMY) color space
|
|
3
|
|
{ 1 exch sub 3 1 roll }
|
|
repeat
|
|
|
|
% find the minimum (initial k component)
|
|
3 copy
|
|
2
|
|
{
|
|
2 copy gt
|
|
{ exch }
|
|
if
|
|
pop
|
|
}
|
|
repeat
|
|
|
|
% apply undercolorremoval
|
|
dup 5 1 roll currentundercolorremoval exec 4 1 roll
|
|
3
|
|
{ 3 index sub //bound_0_1 exec 3 1 roll }
|
|
repeat
|
|
|
|
% apply blackgeneration
|
|
5 3 roll pop currentblackgeneration exec //bound_0_1 exec
|
|
}
|
|
bind
|
|
|
|
/cs_validate {}
|
|
|
|
/cs_substitute
|
|
{ /DefaultRGB //cs_substitute_DeviceRGB_for_PDFX exec
|
|
}
|
|
bind
|
|
|
|
/cs_prepare {}
|
|
/cs_install { pop 1 .setdevcspace } bind
|
|
/cs_prepare_color //validate_3
|
|
/cs_complete_setcolor //pop_1
|
|
.dicttomark
|
|
put
|
|
|
|
end % .cspace_util
|
|
.setglobal
|
|
|
|
|
|
% Only create the DeviceCMYK color space if setcolorscreen is present
|
|
/setcolorscreen where
|
|
{ pop }
|
|
{ currentfile closefile }
|
|
ifelse
|
|
|
|
|
|
.currentglobal true .setglobal
|
|
.cspace_util begin
|
|
|
|
colorspacedict
|
|
/DeviceCMYK
|
|
mark
|
|
/cs_potential_indexed_base true
|
|
/cs_potential_pattern_base true
|
|
/cs_potential_alternate true
|
|
/cs_potential_icc_alternate true
|
|
/cs_get_ncomps //ncomps_4
|
|
/cs_get_range //get_range_4
|
|
/cs_get_default_color { pop 0 0 0 1 } bind
|
|
|
|
/cs_get_currentgray
|
|
{ pop 4 1 roll //rgb_2_gray exec add 1 exch sub //bound_0_1 exec }
|
|
bind
|
|
|
|
/cs_get_currentrgb
|
|
{
|
|
pop
|
|
4 1 roll 3
|
|
{ 3 index add 1 exch sub //bound_0_1 exec 3 1 roll }
|
|
repeat
|
|
4 -1 roll pop
|
|
}
|
|
bind
|
|
|
|
/cs_get_currentcmyk //pop_1
|
|
|
|
/cs_validate {}
|
|
|
|
/cs_substitute
|
|
{ /DefaultCMYK //cs_substitute_generic exec
|
|
}
|
|
bind
|
|
|
|
/cs_prepare {}
|
|
/cs_install { pop 2 .setdevcspace } bind
|
|
/cs_prepare_color //validate_4
|
|
/cs_complete_setcolor //pop_1
|
|
.dicttomark
|
|
put
|
|
|
|
currentdict /..includecolorspace .undef
|
|
currentdict /cs_substitute_generic .undef
|
|
|
|
end % .cspace_util
|
|
.setglobal
|
|
|