home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 April / PCWorld_2001-04_cd.bin / Software / Vyzkuste / gs / gs650w32.exe / gs6.50 / lib / gs_dps2.ps < prev    next >
Text File  |  2000-12-05  |  7KB  |  227 lines
  1. %    Copyright (C) 1990, 1996, 1997, 1998 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_dps2.ps,v 1.2 2000/09/19 18:29:11 lpd Exp $
  19. % Initialization file for basic Display PostScript functions
  20. % that are also included in Level 2.
  21.  
  22. level2dict begin
  23.  
  24. % ------ Halftones ------ %
  25.  
  26. /.makestackdict
  27.     { { counttomark -1 roll } forall .dicttomark
  28.     } bind def
  29. /currenthalftone        % - currenthalftone <dict>
  30.     { mark .currenthalftone
  31.        { { exch pop }        % halftone
  32.          { /HalftoneType 1        % screen
  33.         { /Frequency /Angle /SpotFunction }
  34.            .makestackdict
  35.          }
  36.          { /HalftoneType 2        % colorscreen
  37.         { /RedFrequency /RedAngle /RedSpotFunction
  38.           /GreenFrequency /GreenAngle /GreenSpotFunction
  39.           /BlueFrequency /BlueAngle /BlueSpotFunction
  40.           /GrayFrequency /GrayAngle /GraySpotFunction
  41.         }
  42.            .makestackdict
  43.          }
  44.        }
  45.       exch get exec
  46.     } odef
  47. % Define sethalftone so it converts types 1-4 to type 5.
  48. /.makehalftoneRGBV {    % <dict> <type> <keys> <keysRGBV>
  49.   4 -1 roll exch { 1 index exch get exch } forall 15 1 roll
  50.   14 -2 roll mark 15 1 roll { /Gray /Blue /Green /Red } {
  51.         % stack: v0 v1 v2 type keys comp
  52.     mark
  53.     2 index 0 get 8 -1 roll
  54.     4 index 1 get 9 -1 roll
  55.     6 index 2 get 10 -1 roll
  56.         % stack: type keys comp mark k0 v0 k1 v1 k2 v2
  57.     /HalftoneType 10 index .dicttomark
  58.     counttomark 2 roll
  59.   } forall pop pop
  60.   /Default 1 index .dicttomark exch pop { .sethalftone5 }
  61. } bind def
  62.  
  63. % The value of each entry in .halftonetypes is a procedure:
  64. %    <setdict> <htdict> <<proc>> <setdict'> <htdict'> <sethalftoneproc>
  65. % This allows us to use these procedures both for actually implementing
  66. % sethalftone and for converting subsidiary dictionaries of HalftoneType 5
  67. % halftones.
  68. systemdict begin
  69. 15 dict /.halftonetypes 1 index def begin
  70.   1 {
  71.     mark exch /Default exch .dicttomark { .sethalftone5 }
  72.   } bind def
  73.   2 {
  74.     1 { /Frequency /Angle /SpotFunction } {
  75.       /RedFrequency /RedAngle /RedSpotFunction
  76.       /GreenFrequency /GreenAngle /GreenSpotFunction
  77.       /BlueFrequency /BlueAngle /BlueSpotFunction
  78.       /GrayFrequency /GrayAngle /GraySpotFunction
  79.     } .makehalftoneRGBV
  80.   } bind def
  81.   3 {
  82.     mark exch /Default exch .dicttomark { .sethalftone5 }
  83.   } bind def
  84.   4 {
  85.     3 { /Width /Height /Thresholds } {
  86.       /RedWidth /RedHeight /RedThresholds
  87.       /GreenWidth /GreenHeight /GreenThresholds
  88.       /BlueWidth /BlueHeight /BlueThresholds
  89.       /GrayWidth /GrayHeight /GrayThresholds
  90.     } .makehalftoneRGBV
  91.   } bind def
  92.   5 {
  93.     pop dup length dict copy
  94.     mark 1 index {
  95.         % Even HalftoneType 5 dictionaries have entries other than
  96.         % subsidiary halftone dictionaries.
  97.       dup type /dicttype ne {
  98.     0
  99.       } {
  100.     dup /HalftoneType .knownget not { 0 } if
  101.       } ifelse dup 5 gt {
  102.         % Stack: dict mark ... keyN dictN httypeN
  103.         % Assume that all HalftoneTypes > 5 convert to 5.
  104.     1 index 3 1 roll
  105.     //.halftonetypes exch get exec pop /Default get
  106.         % Stack: dict mark ... keyN setdict'N htdict'N
  107.     counttomark 1 add index 3 index 4 -1 roll put
  108.       } {
  109.     pop
  110.       } ifelse
  111.     } forall .dicttomark { .sethalftone5 }
  112.   } bind def
  113. end
  114. end
  115. /sethalftone {        % <dict> sethalftone -
  116.     % We must create the new dictionary in the same VM as the
  117.     % operand; otherwise, invalidaccess errors may occur.
  118.   .currentglobal 1 index dup gcheck .setglobal
  119.   dup //.halftonetypes 1 index /HalftoneType get get exec exec
  120.   .setglobal pop
  121. } odef
  122. % Redefine setscreen and setcolorscreen to recognize halftone dictionaries,
  123. % and to insert the Frequency and Angle into Type 1 halftones, per
  124. % Adobe TN 5085.
  125. /.fixsethalftonescreen        % <freq> <angle> <dict> .fix...screen
  126.                 %   <freq> <angle> <dict> <dict'>
  127.  { dup dup /HalftoneType get 1 eq
  128.     { dup wcheck not { dup length .copydict } if
  129.       dup /Frequency 5 index put
  130.       dup /Angle 4 index put
  131.     }
  132.    if
  133.  } bind def
  134. /setscreen        % <ignore*2> <dict> setscreen -
  135.     { dup type /dicttype eq
  136.        { .fixsethalftonescreen sethalftone pop pop pop }
  137.        { //setscreen }
  138.       ifelse
  139.     } odef
  140. /setcolorscreen        % <ignore*11> <dict> setcolorscreen -
  141.     { dup type /dicttype eq
  142.        { .fixsethalftonescreen sethalftone 12 { pop } repeat }
  143.        { //setcolorscreen }
  144.       ifelse
  145.     } odef
  146. % Redefine currentscreen and currentcolorscreen to extract the Frequency
  147. % and Angle from Type 1 halftones, per Adobe TN 5085.
  148. /.fixcurrenthalftonescreen    % <dict> .fix... <freq> <angle> <proc>
  149.  { dup /HalftoneType get 1 eq
  150.     { dup /Frequency get 1 index /Angle get }
  151.     { 60 0 }
  152.    ifelse 3 2 roll
  153.  } bind def
  154. /currentscreen        % - currentscreen 60 0 <dict>
  155.     { .currenthalftone
  156.        { { .fixcurrenthalftonescreen }    % halftone
  157.          { }                % screen
  158.          { 12 3 roll 9 { pop } repeat    % colorscreen
  159.            dup type /dicttype eq { .fixcurrenthalftonescreen } if
  160.          }
  161.        }
  162.       exch get exec
  163.     } odef
  164. /currentcolorscreen    % - currentcolorscreen (60 0 <dict>)*4
  165.     { .currenthalftone
  166.        { { .fixcurrenthalftonescreen 3 copy 6 copy }    % halftone
  167.          { 3 copy 6 copy }            % screen
  168.          { }                % colorscreen
  169.        }
  170.       exch get exec
  171.     } odef
  172.  
  173. % ------ User objects ------ %
  174.  
  175. /.localarray where {
  176.   pop
  177. } {
  178.   /.localarray {
  179.     currentglobal false setglobal
  180.     exch array exch setglobal
  181.   } bind def
  182. } ifelse
  183. /.UserObjects {
  184.   .userdict /UserObjects
  185. } odef
  186. % In order to get proper error recovery behavior, we need to be careful
  187. % not to pop any operands from the stack until we're done.
  188. % The code below faithfully duplicates the apparent array-growing
  189. % behavior of Adobe interpreters.
  190. /defineuserobject {        % <index> <value> defineuserobject -
  191.   .UserObjects .knownget {
  192.     length dup 3 index le {
  193.         % Stack: index value len
  194.       2 index eq { 1 index 2 mul } { 1 index 1 add } ifelse
  195.       .localarray .UserObjects get
  196.       1 index copy pop
  197.       .UserObjects 3 -1 roll put
  198.     } {
  199.       pop
  200.     } ifelse
  201.   } {
  202.     .UserObjects 3 index 1 add 10 .max .localarray put
  203.   } ifelse
  204.   .UserObjects get 2 index 2 index put pop pop
  205. } odef
  206. /execuserobject {        % <index> execuserobject -
  207.   .UserObjects get 1 index get exch pop exec
  208. } odef
  209. /undefineuserobject {        % <index> undefineuserobject -
  210.   .UserObjects get 1 index null put pop
  211. } odef
  212.  
  213. % ------ Cache control ------ %
  214.  
  215. % Dummy definitions for cache control operators
  216.  
  217. /ucachestatus {            % - ucachestatus -mark- ? ? ? ? <size>
  218.     mark 0 0 0 0 .userdict /.ucachesize .knownget not { 0 } if
  219. } odef
  220. /setucacheparams {        % -mark- ... <size> setucacheparams -
  221.         % Provoke an appropriate error if needed.
  222.     counttomark 1 lt { () 0 get } if
  223.     0 or .userdict /.ucachesize 2 index 0 .max put cleartomark
  224. } odef
  225.  
  226. end                % level2dict
  227.