home *** CD-ROM | disk | FTP | other *** search
/ jppd.dyndns.org / jppd.dyndns.org.tar / jppd.dyndns.org / QUERYPRO / Impressora_PDF / converter.exe / GPLGS / gs_devn.ps < prev    next >
Text File  |  2002-11-14  |  6KB  |  192 lines
  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_devn.ps,v 1.3 2002/11/13 20:23:10 alexcher Exp $
  17. % DeviceN color space method dictionary; this depends on gs_sepr.ps
  18.  
  19.  
  20. % verify that DeviceN and Separation color spaces are supported
  21. /.setdevicenspace where
  22.   {
  23.     pop
  24.     /.setseparationspace where
  25.       { pop //false }
  26.       { //true }
  27.     ifelse
  28.   }
  29.   { //true }
  30. ifelse
  31.   { currentfile closefile }
  32. if
  33.  
  34. .currentglobal true .setglobal
  35. .cspace_util begin
  36.  
  37.  
  38. %
  39. %   <c1> ... <cm>  <array>   apply_devn_tint_xform   <c1>' ... <cn>'  <array>
  40. %
  41. % Apply the tint transformation for the DeviceN color intensity values.
  42. /apply_devn_tint_xform
  43.   {
  44.     dup 1 get length 1 add exch
  45.     mark 2 index 2 add 2 roll
  46.     index 3 get exec
  47.     counttomark 2 add -2 roll pop
  48.   }
  49. bind def
  50.  
  51.  
  52.  
  53. colorspacedict
  54. /DeviceN
  55.   mark
  56.     /cs_potential_indexed_base true
  57.     /cs_potential_pattern_base true
  58.     /cs_potential_alternate false
  59.     /cs_potential_icc_alternate false
  60.     /cs_get_ncomps { 1 get length } bind
  61.     /cs_get_range { 1 get length [ exch { 0 1 } repeat ] } bind
  62.     /cs_get_default_color { 1 get length { 1 } repeat } bind
  63.  
  64.     /cs_get_currentgray
  65.       { //apply_devn_tint_xform exec 2 get //.cs_get_currentgray exec }
  66.     bind
  67.     /cs_get_currentrgb
  68.       { //apply_devn_tint_xform exec 2 get //.cs_get_currentrgb exec }
  69.     bind
  70.     /cs_get_currentcmyk
  71.       { //apply_devn_tint_xform exec 2 get //.cs_get_currentcmyk exec }
  72.     bind
  73.  
  74.     % a lot of validation is done by the cs_validate method
  75.     /cs_validate
  76.       {
  77.         //check_array exec
  78.         dup 1 get //check_array exec
  79.           {
  80.             type dup /nametype ne exch /stringtype ne and
  81.               //setcspace_typecheck
  82.             if
  83.           }
  84.         forall
  85.         dup 2 get //.cs_validate exec //.cs_potential_alternate exec not
  86.           //setcspace_rangecheck
  87.         if
  88.         dup 3 get //check_array exec xcheck not
  89.           //setcspace_typecheck
  90.         if
  91.       }
  92.     bind
  93.  
  94.     % substitute the base space if appropriate
  95.     /cs_substitute
  96.       {
  97.         dup 2 get //.cs_substitute exec 2 copy eq
  98.           { pop pop dup }
  99.           {
  100.             % retain only the new alternate space
  101.             exch pop
  102.  
  103.             % build all new structures in local VM
  104.             .currentglobal 3 1 roll //false .setglobal
  105.  
  106.             % construct a new array and insert the new base color space
  107.             1 index dup length array copy dup 2 4 -1 roll put
  108.  
  109.             % restore VM mode
  110.             3 -1 roll .setglobal
  111.           }
  112.         ifelse
  113.       }
  114.     bind
  115.  
  116.     %
  117.     % The Ghostscript interpreter works better when tinttransform procedures
  118.     % are translated into functions. Attempt to do that here.
  119.     %
  120.     /cs_prepare //converttinttransform
  121.  
  122.     %
  123.     % Install the current color space.
  124.     %
  125.     % The current Ghostscript color space implementation requires that
  126.     % color spaces that provide a base or alternative color space set
  127.     % that base/alternative color space to be the current color space
  128.     % before attempting to set the original color space.
  129.     %
  130.     % Beginning with Acrobat 5, PDF apparently supports 1-component
  131.     % DeviceN color spaces with the single component "All" (the "PDF
  132.     % Reference", 3rd ed., p. 206 still describes this as illegal).
  133.     % We translate such calls to Separation color spaces.
  134.     %
  135.     /cs_install
  136.       {
  137.         % save the current color space
  138.         currentcolorspace
  139.  
  140.         % set the base color space as the current color space
  141.         1 index 2 get //forcesetcolorspace
  142.  
  143.         % set the indexed color space; restore the earlier space on error
  144.         mark 2 index
  145.         dup 1 get dup length 1 eq exch 0 get /All eq and
  146.           {
  147.             dup length array copy
  148.             dup 0 /Separation put
  149.             dup 1 /All put
  150.               { .setseparationspace }
  151.           }
  152.           { { .setdevicenspace } }
  153.         ifelse
  154.         stopped
  155.           { cleartomark setcolorspace stop }
  156.           { pop pop pop }
  157.         ifelse
  158.       }
  159.     bind
  160.  
  161.     /cs_prepare_color { dup 1 get length //check_num_stack exec pop } bind
  162.  
  163.     %
  164.     % If a DeviceN color space is not supported in native mode by
  165.     % the current process color model, Adobe implementations will always
  166.     % execute the tint transform procedure when setcolor is invoked.
  167.     % Ghostscript may have turned this transform into a sampled function,
  168.     % and even if this is not the case, will have sampled the transform
  169.     % when the color space is first set. Some applications depend on
  170.     % the Adobe behavior, so we implement it via the cs_complete_setcolor
  171.     % method.
  172.     %
  173.     /cs_complete_setcolor
  174.       {
  175.         .usealternate
  176.           {
  177.             pop currentcolor
  178.             currentcolorspace 3 get exec
  179.             currentcolorspace 2 get
  180.             //clear_setcolor_operands exec
  181.           }
  182.           { pop }
  183.         ifelse
  184.       }
  185.     bind
  186.  
  187.   .dicttomark
  188. put
  189.  
  190. end     % .cspace_util
  191. .setglobal
  192.