home *** CD-ROM | disk | FTP | other *** search
/ jppd.dyndns.org / jppd.dyndns.org.tar / jppd.dyndns.org / QUERYPRO / Impressora_PDF / converter.exe / GPLGS / gs_ciecs3.ps < prev    next >
Text File  |  2002-08-23  |  3KB  |  124 lines
  1. %    Copyright (C) 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_ciecs3.ps,v 1.1 2002/08/22 07:12:28 henrys Exp $
  17. % Level 3 CIEBased color space method dictionaries.
  18. % This assumes gs_ciecs2.ps has already been processed.
  19.  
  20. %
  21. % The validation routines in these method dictionaries perform only
  22. % partial validations; the .setcie* operators will perform the rest.
  23. %
  24.  
  25.  
  26. .currentglobal true .setglobal
  27. .cspace_util begin
  28.  
  29.  
  30. /.setciedefspace where
  31.   {
  32.     pop
  33.     colorspacedict
  34.     /CIEBasedDEF
  35.       mark
  36.         /cs_potential_indexed_base true
  37.         /cs_potential_pattern_base true
  38.         /cs_potential_alternate true
  39.         /cs_potential_icc_alternate true
  40.         /cs_get_ncomps //ncomps_3
  41.  
  42.         /cs_get_range
  43.           {
  44.             1 get /RangeDEF .knownget not
  45.               { //dflt_range_3 }
  46.             if
  47.           }
  48.         bind
  49.  
  50.         /cs_get_default_color { pop 0 0 0 } bind
  51.         /cs_get_currentgray //no_currentgray
  52.         /cs_get_currentrgb //no_currentrgb
  53.         /cs_get_currentcmyk //no_currentcmyk
  54.         /cs_validate //check_cie_cspace
  55.         /cs_substitute //dup_1
  56.         /cs_prepare {}
  57.  
  58.         /cs_install
  59.           {
  60.             NOCIE
  61.               { pop /DeviceRGB //.cs_install exec }
  62.               { 1 get .setciedefspace }
  63.             ifelse
  64.           }
  65.         bind
  66.  
  67.         /cs_prepare_color //validate_3
  68.         /cs_complete_setcolor //pop_1
  69.       .dicttomark
  70.     put
  71.   }
  72. if
  73.  
  74.  
  75. /.setciedefgspace where
  76.   {
  77.     pop
  78.     colorspacedict
  79.     /CIEBasedDEFG
  80.       mark
  81.         /cs_potential_indexed_base true
  82.         /cs_potential_pattern_base true
  83.         /cs_potential_alternate true
  84.         /cs_potential_icc_alternate true
  85.         /cs_get_ncomps //ncomps_4
  86.  
  87.         /cs_get_range
  88.           {
  89.             1 get /RangeDEFG .knownget not
  90.               { //dflt_range_4 }
  91.             if
  92.           }
  93.         bind
  94.  
  95.         /cs_get_default_color { pop 0 0 0 0 } bind
  96.         /cs_get_currentgray //no_currentgray
  97.         /cs_get_currentrgb //no_currentrgb
  98.         /cs_get_currentcmyk //no_currentcmyk
  99.         /cs_validate //check_cie_cspace
  100.         /cs_substitute //dup_1
  101.         /cs_prepare {}
  102.  
  103.         % the use of the DeviceCMYK color space is questionable:
  104.         % it will likely have the wrong polarity
  105.         /cs_install
  106.           {
  107.             NOCIE
  108.               { pop /DeviceCMYK //.cs_install exec }
  109.               { 1 get .setciedefgspace }
  110.             ifelse
  111.           }
  112.         bind
  113.  
  114.         /cs_prepare_color //validate_4
  115.         /cs_complete_setcolor //pop_1
  116.       .dicttomark
  117.     put
  118.   }
  119. if
  120.  
  121.  
  122. end     % .cspace_util
  123. .setglobal
  124.