sys/lib/ghostscript/gs_icc.ps

   1 %    Copyright (C) 2001, 2002 Aladdin Enterprises.  All rights reserved.
   2 %
   3 % This software is provided AS-IS with no warranty, either express or
   4 % implied.
   5 %
   6 % This software is distributed under license and may not be copied,
   7 % modified or distributed except as expressly authorized under the terms
   8 % of the license contained in the file LICENSE in this distribution.
   9 %
  10 % For more information about licensing, please refer to
  11 % http://www.ghostscript.com/licensing/. For information on
  12 % commercial licensing, go to http://www.artifex.com/licensing/ or
  13 % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14 % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15
  16 % $Id: gs_icc.ps,v 1.10 2003/07/14 19:32:17 ray Exp $
  17 % ICCBased color space method dictionaries.
  18 % This assumes gs_ciecs2.ps has already been processed.
  19
  20 %
  21 % Note that the substitution procedure in this routine will dynamically
  22 % check for support of ICCBased color space. If such support is not
  23 % provided, the alternative color space will be used.
  24 %
  25 % The validation routine in dictionary (cs_validate) performs a more
  26 % extensive validation than is done for other color spaces, because
  27 % .seticcspace does less checking than most other color space setting
  28 % operators.
  29 %
  30
  31
  32 .currentglobal true .setglobal
  33 .cspace_util begin
  34
  35 %
  36 % A dictionary for mapping the number of components of an ICCBased color
  37 % space to the appropriate alternative color space. This is used only
  38 % if an alternative color space is not specifically provided.
  39 %
  40 /icc_comp_map_dict
  41   mark 1 /DeviceGray 3 /DeviceRGB 4 /DeviceCMYK .dicttomark
  42 def
  43
  44 %
  45 %   <array1>   get_icc_alternative_space   <name | array2>
  46 %
  47 % Get the alternative color space for an ICCBased color space.
  48 %
  49 /get_icc_alternative_space
  50   {
  51     1 get dup /Alternate .knownget
  52       { exch pop }
  53       { /N get //icc_comp_map_dict exch get }
  54     ifelse
  55   }
  56 bind def
  57
  58
  59 colorspacedict
  60 /ICCBased
  61   mark
  62     /cs_potential_indexed_base true
  63     /cs_potential_pattern_base true
  64     /cs_potential_alternate true
  65     /cs_potential_icc_alternate false
  66     /cs_get_ncomps { 1 get /N get } bind
  67
  68     /cs_get_range
  69       {
  70         1 get dup /Range .knownget
  71           { exch pop }
  72           { /N get 2 mul //dflt_range_4 exch 0 exch getinterval }
  73         ifelse
  74       }
  75     bind
  76
  77     /cs_get_default_color { 1 get /N get { 0 } repeat } bind
  78
  79     %
  80     % For generating a gray, RGB, or CMYK equivalent color, we will
  81     % assume that the alternative color space provides reasonable
  82     % mapping.
  83     /cs_get_currentgray
  84       { //get_icc_alternative_space exec //.cs_get_currentgray exec }
  85     bind
  86     /cs_get_currentrgb
  87       { //get_icc_alternative_space exec //.cs_get_currentrgb exec }
  88     bind
  89     /cs_get_currentcmyk
  90       { //get_icc_alternative_space exec //.cs_get_currentcmyk exec }
  91     bind
  92
  93     % a lot of validation is done by the cs_validate method
  94     /cs_validate
  95       {
  96         //check_cie_cspace exec
  97         dup 1 get
  98         dup /N get
  99         dup type /integertype ne
 100           //setcspace_typecheck
 101         if
 102         //icc_comp_map_dict exch known not
 103           //setcspace_rangecheck
 104         if
 105         dup /DataSource get
 106         dup type dup /stringtype ne exch /filetype ne and
 107           //setcspace_typecheck
 108         if
 109         rcheck not
 110           //setcspace_invalidaccess
 111         if
 112         dup /Range .knownget
 113           {
 114             //check_array exec
 115               {
 116                 type dup /integertype ne exch /realtype ne and
 117                   //setcspace_typecheck
 118                 if
 119               }
 120             forall
 121           }
 122         if
 123         /Alternate .knownget
 124           {
 125             //.cs_validate exec
 126             //.cs_potential_icc_alternate exec not
 127               //setcspace_rangecheck
 128             if
 129           }
 130         if
 131       }
 132     bind
 133
 134     % substitute the Alternate space, if appropriate
 135     /cs_substitute
 136       {
 137         %
 138         % A design problem in the Ghostscript graphic library color
 139         % space code prevents an ICCBased color space from having an
 140         % ICCBased alternative color space. This situation actually
 141         % arises fairly frequently in PDF, as an ICCBased color space
 142         % is used as the substitute color for a Device{Gray|RGB|CMYK}
 143         % color space, which in turn are used as the alternative color
 144         % space to another (or possibly even the same) ICCBased color
 145         % space.
 146         %
 147         % This situation causes no fundamental problems, as
 148         % Ghostscript nominally supports ICCBased color spaces, so the
 149         % Alternate color space is not used. Where this is not true
 150         % (primarily because the NOCIE option is selected), the code
 151         % would (except for the design flaw noted above) select the
 152         % Alternate of the Alternate color space.
 153         %
 154         % The code below works around this problem by suprressing
 155         % color space substitution for alternative color spaces if
 156         % the substituting space is an ICCBased color space.
 157         %
 158         dup //get_icc_alternative_space exec
 159         //.cs_substitute exec
 160         2 copy eq
 161         1 index //.cs_potential_icc_alternate exec not
 162         or
 163           { pop pop dup }
 164           {
 165             % retain just the new Alternate space
 166             exch pop
 167
 168             % build all new structures in local VM
 169             .currentglobal 3 1 roll //false .setglobal
 170
 171             % copy the original ICCBased color space array
 172             1 index dup length array copy
 173
 174             % copy the ICCBased dictionary
 175             dup 1 2 copy get dup length dict copy
 176
 177             % insert the new alterante color space
 178             dup /Alternate 7 -1 roll put
 179
 180             % insert the new dictionary into the arra
 181             put
 182
 183             % restore the VM mode
 184             3 -1 roll .setglobal
 185           }
 186         ifelse
 187       }
 188     bind
 189
 190     %
 191     % The current implementation of ICCBased color spaces requires the
 192     % DataSource to be a file.
 193     %
 194     /cs_prepare
 195       {
 196         % make DataSource a file
 197         dup 1 get /DataSource get type /stringtype eq
 198           {
 199             % build all new structures in local VM
 200             .currentglobal exch //false .setglobal
 201
 202             % check if we need to copy the color space and dictionary
 203             2 copy eq
 204               {
 205                 dup length array copy
 206                 dup 1 2 copy get dup length dict copy put
 207               }
 208             if
 209
 210             % fetch DataSource, setting up stack for multiple puts
 211             dup 1 2 copy get dup /DataSource 2 copy get
 212
 213             % convert the string into a file
 214             /ReusableStreamDecode filter
 215
 216             % put the file into the dictioary, the dictionary into the array
 217             put put
 218
 219             % restore the VM mode
 220             exch .setglobal
 221           }
 222         if
 223       }
 224     bind
 225
 226     %
 227     % Install the current color space.
 228     %
 229     % The current Ghostscript color space implementation requires that
 230     % color spaces that provide a base or alternative color space set
 231     % that base/alternative color space to be the current color space
 232     % before attempting to set the original color space. This can cause
 233     % difficulty if an ICCBased color space is being used as a substitute
 234     % color space for a device-specific color space, and uses that same
 235     % device-specific color space as an alternative space. For this
 236     % reason, a special _setcolorspace_nosub operator is provided.
 237     %
 238     /cs_install
 239       {
 240         % set the alternative color space to be the current color space
 241         dup //get_icc_alternative_space exec //_setcolorspace_nosub exec
 242
 243         % check for native support
 244         /.seticcspace where
 245           { pop //false }
 246           { //true }
 247         ifelse
 248         NOCIE or
 249           //pop_1       % do nothing
 250           {
 251             % Acrobat Reader silently ignores errors with ICC profiles
 252             % and uses the alternate color space -- do the same.
 253             mark exch 1 get
 254               { .seticcspace }
 255             .internalstopped
 256             cleartomark
 257           }
 258         ifelse
 259       }
 260     bind
 261
 262     % for now, the alternative spaces for an ICCBased color space do
 263     % not require special preparation
 264     /cs_prepare_color { dup 1 get /N get //check_num_stack exec pop } bind
 265     /cs_complete_setcolor //pop_1
 266
 267   .dicttomark
 268 put
 269
 270 end     % .cspace_util
 271
 272 NOPSICC { (%END PSICC) .skipeof } if
 273 % Now set up ICC profile loading for PostScript %%BeginICCProfile sections.
 274
 275 systemdict begin
 276 /.ProcessICCcomment { % file comment --  file comment
 277   dup
 278   (%%BeginICCProfile) anchorsearch {
 279     pop pop
 280     DEBUG { (.ProcessICCcomment found %%BeginICCProfile) print flush } if
 281
 282     % load an ICC profile defined as comments (hex encoded).
 283     % Ends with %%End at the start of a line. Read the data into
 284     % a bytestring to allow seeking. This string can be used as a
 285     % seekable ReusableStreamDecode filter source by the ICC logic.
 286     %
 287     % Since .bigstring needs to know the size, we first read an array of
 288     % strings each 64000 max length.
 289     %
 290     % stack: --file-- (%%BeginICCProfile: ...)
 291     1 index 0 (%%EndICCProfile) /SubFileDecode filter
 292     [ { counttomark 1 add index
 293         64000 string readhexstring
 294         not { exit } if
 295       } loop
 296     ] exch closefile
 297     0 1 index { length add } forall
 298     .bigstring
 299     exch 0 exch {
 300       % stack: --file-- (%%BeginICCProfile: ...) --bytestring-- cur_index --string--
 301       2 copy length add         % calculate next string start point
 302       3 1 roll 3 index 3 1 roll putinterval
 303     } forall
 304     pop                         % discard length of bytestring
 305     % make a seekable -file- out of the bytestring
 306     mark /AsyncRead true .dicttomark /ReusableStreamDecode filter
 307     % stack: --file-- (%%BeginICCProfile: ...) --icc_subfile--
 308     /DeviceCMYK setcolorspace
 309     << /DataSource 3 -1 roll
 310        /N 4             % Try CMYK first
 311     >> { .seticcspace } stopped {
 312       /DeviceRGB setcolorspace
 313       dup /N 3 put  { .seticcspace } stopped {
 314         /DeviceGray setcolorspace
 315         dup /N 1 put { .seticcspace } stopped { % last choice
 316           QUIET not { (   *** Unable to load ICC profile from PostScript DSC comments ***) = flush } if
 317           pop
 318         } if
 319       } if
 320     } if
 321   } {
 322     pop % Not interested in this DSC comment
 323   } ifelse
 324 } bind def
 325
 326 % Merge ProcessICCcomment with existing handler
 327 /.ProcessICCcomment load /exec load
 328 currentuserparams /ProcessDSCComment get
 329 dup null eq {pop {pop pop}} if /exec load
 330 4 array astore cvx readonly
 331 << /ProcessDSCComment 3 -1 roll >> setuserparams
 332
 333 end     % systemdict
 334 %END PSICC
 335 .setglobal