ref: 9f18b0f388a38a35ea8920fe3e98c7f8e3a41cf2
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