home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2003 #12 / K-CD-12-2003.ISO / pdf995 / res / convert / gs_icc.ps < prev    next >
Encoding:
Text File  |  2002-02-23  |  3.5 KB  |  115 lines
  1. %    Copyright (C) 2001 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.2.2.1 2002/02/22 19:45:55 ray Exp $
  17. % PostScript portion of ICCBased color space support
  18.  
  19. //userdict /.icc_comp_map_dict
  20.   << 1 /DeviceGray  3 /DeviceRGB  4 /DeviceCMYK >>
  21. put
  22.  
  23. colorspacedict /ICCBased
  24.   {
  25.     % Verify that the source object is an array, that it is at least of length
  26.     % two, and that the second entry is a readable dictionary. If we got this
  27.     % far, we know the top-level object exists and is readable, but it might
  28.     % be a dictionary.
  29.     dup type dup /arraytype ne exch /packedarraytype ne and
  30.       { /setcolorspace /typecheck signalerror }
  31.     if
  32.     dup length 2 lt
  33.       { /setcolorspace /rangecheck signalerror }
  34.     if
  35.     dup 1 get type /dicttype ne
  36.       { /setcolorspace /typecheck signalerror }
  37.     if
  38.     dup 1 get rcheck not
  39.       { /setcolorspace /invalidaccess signalerror }
  40.     if
  41.  
  42.     % Verify that the dictionary defines the key N (number of components) and
  43.     %  entry is provided and has a legitimate value
  44.     dup 1 get /N .knownget
  45.       {
  46.         //.icc_comp_map_dict exch known not
  47.           { 
  48.             % generate the appropriate error
  49.             /setcolorspace 
  50.             1 index 1 get /N type type /integertype ne
  51.               { /typecheck }
  52.               { /rangecheck }
  53.             ifelse
  54.             signalerror
  55.           }
  56.         if
  57.       }
  58.       { /setcolorspace /undefined signalerror }
  59.     ifelse
  60.  
  61.     % Verify DataSrouce and, if it is a string, convert it to a file
  62.     dup 1 get /DataSource .knownget
  63.       {
  64.         dup rcheck not
  65.           { pop /setcolorspace /invalidaccess signalerror }
  66.         if
  67.         type dup /stringtype eq
  68.           {
  69.             pop
  70.             2 array copy
  71.             dup 1
  72.              2 copy get dup length dict copy
  73.              dup /DataSource
  74.               2 copy get /ReusableStreamDecode filter
  75.              put
  76.             put
  77.           }
  78.           {
  79.             /filetype ne
  80.               { /setcolorspace /typecheck signalerror }
  81.             if
  82.           }
  83.         ifelse
  84.       }
  85.       { /setcolorspace /undefined signalerror }
  86.     ifelse
  87.  
  88.     % set the alternate color space to be the current color space
  89.     dup 1 get /Alternate .knownget not
  90.       { dup 1 get /N get //.icc_comp_map_dict exch get }
  91.     if
  92.     setcolorspace
  93.  
  94.     % if CIE spaces are not use, just take the alternate space
  95.     NOCIE
  96.       { pop //null }
  97.       { % check for native support
  98.         /.seticcspace where
  99.           { pop dup 1 get
  100.         % Acrobat Reader silently ignores errors with ICC profiles
  101.         % and uses the alternate color space -- do the same.
  102.         mark exch { .seticcspace } stopped
  103.           { cleartomark pop //null }
  104.           { pop }
  105.         ifelse
  106.       }
  107.           { pop //null }
  108.         ifelse
  109.       }
  110.     ifelse
  111.   }
  112. bind put
  113.  
  114. //userdict /.icc_comp_map_dict undef
  115.