sys/lib/ghostscript/gs_ciecs2.ps

   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_ciecs2.ps,v 1.1 2002/08/22 07:12:28 henrys Exp $
  17 % Level 2 CIEBased color space method dictionaries.
  18
  19 %
  20 % The validation routines in these method dictionaries perform only
  21 % partial validations; the .setcie* operators will perform the rest.
  22 %
  23
  24 % verify that at least one of the CIEBased color spaces is supported
  25 true
  26   { /.setcieaspace /.setcieabcspace /.setciedefspace /.setciedefgspace }
  27   {
  28     where
  29       { pop not exit }
  30     if
  31   }
  32 forall
  33   { currentfile closefile }
  34 if
  35
  36
  37 .currentglobal true .setglobal
  38 .cspace_util begin
  39
  40 %
  41 %   <obj>   check_cie_cspace   <obj>
  42 %
  43 % Perform a very basic check that an object is a CIEBased color space
  44 % array.
  45 %
  46 /check_cie_cspace
  47   {
  48     //check_array exec
  49     dup 1 get type /dicttype ne
  50       //setcspace_typecheck
  51     if
  52   }
  53 bind def
  54
  55
  56
  57 /.setcieaspace where
  58   {
  59     pop
  60     colorspacedict
  61     /CIEBasedA
  62       mark
  63         /cs_potential_indexed_base true
  64         /cs_potential_pattern_base true
  65         /cs_potential_alternate true
  66         /cs_potential_icc_alternate true
  67         /cs_get_ncomps //ncomps_1
  68
  69         /cs_get_range
  70           {
  71             1 get /RangeA .knownget not
  72               { //dflt_range_1 }
  73             if
  74           }
  75         bind
  76
  77         /cs_get_default_color { pop 0 } bind
  78         /cs_get_currentgray //no_currentgray
  79         /cs_get_currentrgb //no_currentrgb
  80         /cs_get_currentcmyk //no_currentcmyk
  81         /cs_validate //check_cie_cspace
  82         /cs_substitute //dup_1
  83         /cs_prepare {}
  84
  85         /cs_install
  86           {
  87             NOCIE
  88               { pop /DeviceGray //.cs_install exec }
  89               { 1 get .setcieaspace }
  90             ifelse
  91           }
  92         bind
  93
  94         /cs_prepare_color //validate_1
  95         /cs_complete_setcolor //pop_1
  96       .dicttomark
  97     put
  98   }
  99 if
 100
 101 /.setcieabcspace where
 102   {
 103     pop
 104     colorspacedict
 105     /CIEBasedABC
 106       mark
 107         /cs_potential_indexed_base true
 108         /cs_potential_pattern_base true
 109         /cs_potential_alternate true
 110         /cs_potential_icc_alternate true
 111         /cs_get_ncomps //ncomps_3
 112
 113         /cs_get_range
 114           {
 115             1 get /RangeABC .knownget not
 116               { //dflt_range_3 }
 117             if
 118           }
 119         bind
 120
 121         /cs_get_default_color { pop 0 0 0 } bind
 122         /cs_get_currentgray //no_currentgray
 123         /cs_get_currentrgb //no_currentrgb
 124         /cs_get_currentcmyk //no_currentcmyk
 125         /cs_validate //check_cie_cspace
 126         /cs_substitute //dup_1
 127         /cs_prepare {}
 128
 129         /cs_install
 130           {
 131             NOCIE
 132               { pop /DeviceRGB //.cs_install exec }
 133               { 1 get .setcieabcspace }
 134             ifelse
 135           }
 136         bind
 137
 138         /cs_prepare_color //validate_3
 139         /cs_complete_setcolor //pop_1
 140       .dicttomark
 141     put
 142   }
 143 if
 144
 145
 146 end     % .cspace_util
 147 .setglobal