home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 September / PCWorld_2001-09_cd.bin / Software / Vyzkuste / rychlokurz / gs700w32.exe / gs7.00 / lib / gs_icc.ps < prev    next >
Text File  |  2001-03-16  |  4KB  |  111 lines
  1. %    Copyright (C) 2001 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of AFPL Ghostscript.
  4. % 
  5. % AFPL Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author or
  6. % distributor accepts any responsibility for the consequences of using it, or
  7. % for whether it serves any particular purpose or works at all, unless he or
  8. % she says so in writing.  Refer to the Aladdin Free Public License (the
  9. % "License") for full details.
  10. % 
  11. % Every copy of AFPL Ghostscript must include a copy of the License, normally
  12. % in a plain ASCII text file named PUBLIC.  The License grants you the right
  13. % to copy, modify and redistribute AFPL Ghostscript, but only under certain
  14. % conditions described in the License.  Among other things, the License
  15. % requires that the copyright notice and this notice be preserved on all
  16. % copies.
  17.  
  18. % $Id: gs_icc.ps,v 1.1 2001/03/17 01:15:41 raph Exp $
  19. % PostScript portion of ICCBased color space support
  20.  
  21. //userdict /.icc_comp_map_dict
  22.   << 1 /DeviceGray  3 /DeviceRGB  4 /DeviceCMYK >>
  23. put
  24.  
  25. colorspacedict /ICCBased
  26.   {
  27.     % Verify that the source object is an array, that it is at least of length
  28.     % two, and that the second entry is a readable dictionary. If we got this
  29.     % far, we know the top-level object exists and is readable, but it might
  30.     % be a dictionary.
  31.     dup type dup /arraytype ne exch /packedarraytype ne and
  32.       { /setcolorspace /typecheck signalerror }
  33.     if
  34.     dup length 2 lt
  35.       { /setcolorspace /rangecheck signalerror }
  36.     if
  37.     dup 1 get type /dicttype ne
  38.       { /setcolorspace /typecheck signalerror }
  39.     if
  40.     dup 1 get rcheck not
  41.       { /setcolorspace /invalidaccess signalerror }
  42.     if
  43.  
  44.     % Verify that the dictionary defines the key N (number of components) and
  45.     %  entry is provided and has a legitimate value
  46.     dup 1 get /N .knownget
  47.       {
  48.         //.icc_comp_map_dict exch known not
  49.           { 
  50.             % generate the appropriate error
  51.             /setcolorspace 
  52.             1 index 1 get /N type type /integertype ne
  53.               { /typecheck }
  54.               { /rangecheck }
  55.             ifelse
  56.             signalerror
  57.           }
  58.         if
  59.       }
  60.       { /setcolorspace /undefined signalerror }
  61.     ifelse
  62.  
  63.     % Verify DataSrouce and, if it is a string, convert it to a file
  64.     dup 1 get /DataSource .knownget
  65.       {
  66.         dup rcheck not
  67.           { pop /setcolorspace /invalidaccess signalerror }
  68.         if
  69.         type dup /stringtype eq
  70.           {
  71.             pop
  72.             2 array copy
  73.             dup 1
  74.              2 copy get dup length dict copy
  75.              dup /DataSource
  76.               2 copy get /ReusableStreamDecode filter
  77.              put
  78.             put
  79.           }
  80.           {
  81.             /filetype ne
  82.               { /setcolorspace /typecheck signalerror }
  83.             if
  84.           }
  85.         ifelse
  86.       }
  87.       { /setcolorspace /undefined signalerror }
  88.     ifelse
  89.  
  90.     % set the alternate color space to be the current color space
  91.     dup 1 get /Alternate .knownget not
  92.       { dup 1 get /N get //.icc_comp_map_dict exch get }
  93.     if
  94.     setcolorspace
  95.  
  96.     % if CIE spaces are not use, just take the alternate space
  97.     NOCIE
  98.       { pop null }
  99.       {
  100.         % check for native support
  101.         /.seticcspace where
  102.           { pop dup 1 get .seticcspace }
  103.           { pop null }
  104.         ifelse
  105.       }
  106.     ifelse
  107.   }
  108. bind put
  109.  
  110. //userdict /.icc_comp_map_dict undef
  111.