78 lines · 2.2 KB · Text
RawDownload
%    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_devpxl.ps,v 1.1 2002/08/22 07:12:28 henrys Exp $% DevicePixel color space method dictionaries. %% This file implements the DevicePixel color space. See gs_cspace.ps% for information.%% The DevicePixel color space includes a single parameter, the bit% depth of the device color representation. Color is expressed as% single integers in an opaque, device-specific format.% % verify that the DevicePixel color space is supported/.setdevicepixelspace where  { pop }  { currentfile closefile }ifelse  .currentglobal true .setglobal .cspace_util begin  colorspacedict/DevicePixel  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 { [ exch 1 get 1 exch bitshift 1 sub ] } bind    /cs_get_default_color { pop 0 } bind    % no good default    /cs_get_currentgray //no_currentgray    /cs_get_currentrgb //no_currentrgb    /cs_get_currentcmyk //no_currentcmyk     /cs_validate      {        //check_array exec        dup 1 get dup type /integertype ne          //setcspace_typecheck        if        dup 0 lt          //setcspace_rangecheck        if        31 gt   % 31 bits is an implementation limit          { /setcolorspace cvx /limitcheck signalerror }        if      }    bind     /cs_substitute //dup_1    /cs_prepare {}    /cs_install { .setdevicepixelspace } bind    /cs_prepare_color //validate_1    /cs_complete_setcolor //pop_1  .dicttomarkput end     % .cspace_util.setglobal