home *** CD-ROM | disk | FTP | other *** search
/ jppd.dyndns.org / jppd.dyndns.org.tar / jppd.dyndns.org / QUERYPRO / Impressora_PDF / converter.exe / GPLGS / gs_patrn.ps < prev    next >
Text File  |  2002-11-14  |  8KB  |  300 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_patrn.ps,v 1.2 2002/11/13 20:23:10 alexcher Exp $
  17. % Pattern color space method dictionary.
  18.  
  19.  
  20. % verify that Pattern color spaces are supported
  21. /.setpatternspace where
  22.   { pop }
  23.   { currentfile closefile }
  24. ifelse
  25.  
  26. .currentglobal true .setglobal
  27. .cspace_util begin
  28.  
  29. %
  30. %   <name1 | array1>   get_pattern_base_cspace   <null | name2 | array2>
  31. %
  32. % If the Pattern color space has a base color space, push that base
  33. % color space onto the stack. Otherwise, push a null object.
  34. %
  35. /get_pattern_base_cspace
  36.   {
  37.     dup type /nametype eq
  38.       { pop //null }
  39.       {
  40.         dup length 1 gt
  41.           { 1 get }
  42.           { pop //null }
  43.         ifelse
  44.       }
  45.     ifelse
  46.   }
  47. bind def
  48.  
  49.  
  50. %
  51. %   <dict>   has_base_color   <bool>
  52. %
  53. % Determine if a Pattern "color" includes a base color. This is the case
  54. % if the pattern dictionary has PatternType 1 and PaintType 2.
  55. %
  56. /has_base_color
  57.   {
  58.     dup //null eq
  59.       { pop //false }
  60.       {
  61.         dup /PatternType get 1 eq
  62.           { /PaintType get 2 eq }
  63.           { pop //false }
  64.         ifelse
  65.       }
  66.     ifelse
  67.   }
  68. bind def
  69.  
  70. %
  71. %   <c1> ... <cn>  <pattern_dict>  <pattern_cspace>
  72. %   get_pattern_base_color
  73. %   <c1> ... <cn>  <base_cspace>  true
  74. % or
  75. %   <?c1?> ... <?cn?>  <dict>  <pattern>
  76. %   get_pattern_base_color
  77. %   false
  78. %
  79. % If a pattern dictionary has a base color, set up that base color and
  80. % color space, and push true. Otherwise, just push false. It is assumed
  81. % that if the pattern includes a base color, the Pattern color space
  82. % has a base color space.
  83. %
  84. /get_pattern_base_color
  85.   {
  86.     exch //has_base_color exec
  87.       { 1 get //true }
  88.       { pop //false }
  89.     ifelse
  90.   }
  91. bind def
  92.  
  93.  
  94. colorspacedict
  95. /Pattern
  96.   mark
  97.     /cs_potential_indexed_base false
  98.     /cs_potential_pattern_base false
  99.     /cs_potential_alternate false
  100.     /cs_potential_icc_alternate false
  101.  
  102.     %
  103.     % We employ the same convention for describing the number of
  104.     % components in a Pattern color space as is used by the graphic
  105.     % library. For pattern spaces with no underlying color space,
  106.     % the result is -1. If a Pattern space has an underlying color
  107.     % space with n components, the result is -(n + 1).
  108.     %
  109.     /cs_get_ncomps
  110.       {
  111.         //get_pattern_base_cspace exec dup //null eq
  112.           { pop 0 }
  113.           //.cs_get_ncomps
  114.         ifelse
  115.         1 add neg
  116.       }
  117.     bind
  118.  
  119.     % there is no "range" for a Pattern color space
  120.     /cs_get_range { {} cvlit } bind
  121.  
  122.     /cs_get_default_color { pop //null } bind
  123.  
  124.     /cs_get_currentgray
  125.       {
  126.         //get_pattern_base_color exec
  127.           //.cs_get_currentgray
  128.           { 0 }
  129.         ifelse
  130.       }
  131.     bind
  132.  
  133.     /cs_get_currentrgb
  134.       {
  135.         //get_pattern_base_color exec
  136.           //.cs_get_currentrgb
  137.           { 0 0 0 }
  138.         ifelse
  139.       }
  140.     bind
  141.  
  142.     /cs_get_currentcmyk
  143.       {
  144.         //get_pattern_base_color exec
  145.           //.cs_get_currentcmyk
  146.           { 0 0 0 1.0 }
  147.         ifelse
  148.       }
  149.     bind
  150.  
  151.     /cs_validate
  152.       {
  153.         dup //get_pattern_base_cspace exec dup //null eq
  154.           { pop }
  155.           {
  156.             //.cs_validate exec //.cs_potential_pattern_base exec not
  157.               //setcspace_rangecheck
  158.             if
  159.           }
  160.         ifelse
  161.       }
  162.     bind
  163.  
  164.     % substitute the base space if appropriate
  165.     /cs_substitute
  166.       {
  167.         dup //get_pattern_base_cspace exec dup //null eq
  168.           { pop dup }
  169.           {
  170.             //.cs_substitute exec 2 copy eq
  171.               { pop pop dup }
  172.               {
  173.                 % retain only the new alternate space
  174.                 exch pop
  175.  
  176.                 % build all new structures in local VM
  177.                .currentglobal 3 1 roll //false .setglobal
  178.  
  179.                 % construct a new array and insert the new base color space 
  180.                 1 index dup length array copy dup 1 4 -1 roll put
  181.  
  182.                 % restore VM mode
  183.                 3 -1 roll .setglobal
  184.               }
  185.             ifelse
  186.           }
  187.         ifelse
  188.       }
  189.     bind
  190.  
  191.     /cs_prepare {}
  192.  
  193.     %
  194.     % Install the current color space.
  195.     %
  196.     % The current Ghostscript color space implementation requires that
  197.     % color spaces that provide a base or alternative color space set
  198.     % that base/alternative color space to be the current color space
  199.     % before attempting to set the original color space.
  200.     %
  201.     % In principle, the only errors that are possible for .setpatternspace
  202.     % (given that setcolorspace itself is legal) are limitcheck and/or
  203.     % VMerror. The Ghostscript implementation allows a few others, so 
  204.     % we go through the full code to restore the current color space in
  205.     % the event of an error.
  206.     %
  207.     /cs_install
  208.       {
  209.         dup //get_pattern_base_cspace exec dup //null eq
  210.           {
  211.             pop
  212.             dup type /nametype eq
  213.               { pop { /Pattern } cvlit }
  214.             if
  215.             .setpatternspace
  216.           }
  217.           {
  218.             % save the current color space
  219.             currentcolorspace
  220.  
  221.             % set the base color space as the current color space
  222.             exch //forcesetcolorspace
  223.  
  224.             % set the pattern color space; restore the earlier space on error
  225.             mark 2 index
  226.               { .setpatternspace }
  227.             stopped
  228.               { cleartomark setcolorspace stop }
  229.               { pop pop pop }
  230.             ifelse
  231.           }
  232.         ifelse
  233.       }
  234.     bind
  235.  
  236.  
  237.     %
  238.     % Pattern dictionaries generated by makepattern will include an
  239.     % Implementation entry whose value is an internal data structure.
  240.     % Such structures are given executable type names that match their
  241.     % internal structure names. The names used for pattern
  242.     % implementations are gs_pattern1_instance_t and
  243.     % gs_pattern2_instance_t. It is unfortunate to have to expose such
  244.     % internal names at this level, but not easily avoided.
  245.     %
  246.     /cs_prepare_color
  247.       {
  248.         % verify that the topmost operand is a pattern dictionary
  249.         1 index dup type /dicttype ne
  250.           {
  251.             //null ne
  252.               //setcspace_typecheck
  253.             if
  254.             pop
  255.           }
  256.           {
  257.             dup /Implementation .knownget
  258.               {
  259.                 type dup dup
  260.                 /gs_pattern1_instance_t ne exch /gs_pattern2_instance_t ne and
  261.                 exch xcheck not
  262.                 or
  263.                   //setcspace_typecheck
  264.                 if
  265.               }
  266.               //setcspace_typecheck
  267.             ifelse
  268.  
  269.             % check if base color space operands are present
  270.             dup /PatternType get 1 eq
  271.               {
  272.                 /PaintType get 2 eq
  273.                   {
  274.                     % verify that a base color space exists
  275.                     //get_pattern_base_cspace exec dup //null eq
  276.                       //setcspace_rangecheck
  277.                     if
  278.                     exch 1 index //.cs_get_ncomps exec
  279.                     exch 1 index 3 add 1 roll
  280.                     //check_num_stack exec
  281.                     //.cs_get_ncomps exec 1 add -1 roll
  282.                   }
  283.                   { pop }
  284.                 ifelse
  285.               }
  286.               { pop pop }
  287.             ifelse
  288.           }
  289.         ifelse
  290.       }
  291.     bind
  292.  
  293.     /cs_complete_setcolor //pop_1
  294.  
  295.   .dicttomark
  296. put
  297.  
  298. end     % .cspace_util
  299. .setglobal
  300.