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_dps.ps < prev    next >
Text File  |  2000-12-05  |  8KB  |  205 lines
  1. %    Copyright (C) 1997, 2000 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_dps.ps,v 1.4 2000/09/19 18:29:11 lpd Exp $
  19. % Initialization file for Display PostScript functions.
  20.  
  21. % ------ Contexts ------ %
  22.  
  23. % To create a context with private local VM, we use the .localfork
  24. % operator to actually create the context, the new VM, and an empty
  25. % userdict, and then we call the .initlocaldicts procedure to make
  26. % local copies of the initial contents of the dictionaries in local VM.
  27. % savedlocaldicts in systemdict is a global read-only dictionary whose
  28. % elements are global read-only copies of these initial contents;
  29. % we just copy its elements into local VM and install them in systemdict.
  30. % userdict and internaldict require special handling.
  31.  
  32. % Switching between contexts with different local VMs requires
  33. % changing the bindings in systemdict that reference local objects.
  34. % For this purpose, each userdict has an entry called localdicts
  35. % which holds the local copies of the elements of savedlocaldicts,
  36. % plus internaldict.  The context switching code in the interpreter
  37. % effectively copies this dictionary into systemdict.
  38. % NOTE: the name localdicts is known to the interpreter.
  39.  
  40. % Switching between contexts also requires resetting the user parameters.
  41. % The interpreter records the value of userparams (a local dictionary
  42. % referenced from systemdict) for each context, and uses it for this.
  43. % See gs_lev2.ps for more details.
  44. % NOTE: the name userparams is known to the interpreter.
  45.  
  46. % Save copies of local dictionaries at the end of system initialization.
  47. % Also save the initial gstate.
  48. /.savelocalstate {
  49.   .currentglobal true .setglobal
  50.   //systemdict /savedlocaldicts mark //systemdict {
  51.     dup gcheck {
  52.       pop pop
  53.     } {
  54.       dup type /dicttype eq {
  55.         % Save a copy of this dictionary in global VM.
  56.     dup maxlength dict .copydict readonly
  57.       } {
  58.     pop pop
  59.       } ifelse
  60.     } ifelse
  61.   } forall .dicttomark readonly put
  62.         % Create localdicts for the current context.
  63.   false .setglobal
  64.   userdict /localdicts mark savedlocaldicts {
  65.     pop dup load
  66.   } forall /internaldict dup load
  67.   .dicttomark readonly put
  68.         % Save a copy of the initial gstate.
  69.   true .setglobal
  70.   //systemdict /savedinitialgstate gstate readonly put
  71.   .setglobal
  72. } .bind def
  73.  
  74. % Initialize local dictionaries and gstate when creating a new context.
  75. % Note that until this completes, we are in the anomalous situation of
  76. % having systemdict point to dictionaries that are in a non-current
  77. % local VM.  Because of this, we turn off garbage collection temporarily.
  78. /.copylocal {        % <name> <dict> .copylocal <name> <dict'>
  79.         % Copy a dictionary to the current (local) VM,
  80.         % and make it read-only if its current definition is.
  81.   dup maxlength dict .copydict
  82.   1 index load wcheck not { readonly } if
  83. } .bind def
  84. % When this is called, the dictionary stack is in its initial state,
  85. % and there is (anomalously) only one gstate on the gstate stack.
  86. /.initlocaldicts {        % - .initlocaldicts -
  87.   -2 vmreclaim
  88.   .currentglobal //systemdict begin
  89.   false .setglobal
  90.         % Since localdicts doesn't exist yet, references from
  91.         % systemdict to local objects won't get restored if
  92.         % a context switch happens in this code.  Therefore,
  93.         % until localdicts is defined, we have to keep all our
  94.         % state on the operand stack.
  95.  
  96.         % Acquire userdict.
  97.         %****** WRONG IF NON-STANDARD INITIAL DSTACK ******
  98.   countdictstack array dictstack
  99.    { dup gcheck not { exit } if pop } forall
  100.         % Create localdicts with a local copy of each dictionary,
  101.         % except for userdict and userparams, which just need
  102.         % to be filled in.
  103.   mark savedlocaldicts {
  104.     1 index /userdict eq {
  105.         % Stack: userdict mark ... /userdict inituserdict
  106.       counttomark 1 add index .copydict
  107.     } {
  108.       1 index /userparams eq {
  109.         % Stack: userdict mark ... /userparams inituserparams
  110.     userparams .copydict
  111.       } {
  112.     .copylocal
  113.       } ifelse
  114.     } ifelse
  115.   } forall /internaldict dup .makeinternaldict .makeoperator
  116.   .dicttomark readonly /localdicts exch put
  117.         % localdicts is now defined in userdict.
  118.         % Copy the definitions into systemdict.
  119.   localdicts { .forcedef } forall
  120.         % Set the user parameters.
  121.   userparams readonly .setuserparams
  122.         % Establish the initial gstate(s).
  123.   /savedinitialgstate .systemvar setgstate gsave
  124.         % Wrap up.
  125.   end .setglobal
  126. } odef
  127.  
  128. % Check whether an object is a procedure.
  129. /.proccheck {            % <obj> .proccheck <bool>
  130.   dup xcheck
  131.   exch type dup /arraytype eq exch /packedarraytype eq or and
  132. } bind def
  133.  
  134. % Create a context with private local VM.
  135. % The .localfork operator does all the work, but we must ensure that
  136. % .initlocaldicts gets called when the new context starts up.
  137. /localfork {            % <mark> <obj1> ... <objN> <proc>
  138.                 %   <stdin|null> <stdout|null>
  139.                 %   localfork <context>
  140.   .currentglobal true .setglobal 3 index
  141.   dup .proccheck not {
  142.     pop .setglobal /localfork cvx /typecheck signalerror
  143.   } if
  144.   {exec .initlocaldicts} aload pop
  145.   3 1 roll 3 packedarray cvx
  146.   4 1 roll 5 -1 roll pop .setglobal .localfork
  147. } odef
  148.  
  149. % Fork a context that shares VM.  The .fork operator creates an empty
  150. % userparams dictionary for the context, but we still need to initialize
  151. % this dictionary when the new context starts up.
  152. /.postfork {        % - .postfork -
  153.     % Initialize the user parameters.
  154.   savedlocaldicts /userparams get userparams .copydict readonly pop
  155. } odef
  156. /fork {            % <mark> <obj1> ... <objN> <proc> fork <context>
  157.   .currentglobal false .setglobal 1 index
  158.   dup .proccheck not {
  159.     pop .setglobal /fork cvx /typecheck signalerror
  160.   } if
  161.   {exec .postfork} aload pop
  162.   3 1 roll 3 packedarray cvx
  163.   3 1 roll exch pop .setglobal .fork
  164. } odef
  165.  
  166. % ------ Halftone phase ------ %
  167.  
  168. /sethalftonephase {        % <x> <y> sethalftonephase -
  169.   -1 2 index 2 index .setscreenphase pop pop
  170. } odef
  171. /currenthalftonephase {        % - currenthalftonephase <x> <y>
  172.   0 .currentscreenphase
  173. } odef
  174.  
  175. % ------ Device-source images ------ */
  176.  
  177. .imagetypes 2 /.image2 load put
  178.  
  179. % ------ Device information ------ %
  180.  
  181. /.deviceinfodict mark
  182.   /Colors null /GrayValues null /RedValues null /GreenValues null
  183.   /BlueValues null /ColorValues null
  184. .dicttomark readonly def
  185. /deviceinfo {            % - deviceinfo <dict>
  186.   currentdevice //.deviceinfodict .getdeviceparams .dicttomark readonly
  187. } odef
  188.  
  189. % The current implementation allocates a 2-element array each time.
  190. % Perhaps we should change this to 2 separate parameters for X and Y?
  191. /.wtdict mark
  192.   /wtranslation null
  193. .dicttomark readonly def
  194. /wtranslation {            % - wtranslation <x> <y>
  195.   currentdevice //.wtdict .getdeviceparams exch pop exch pop aload pop
  196. } odef
  197. currentdict /.wtdict .undef
  198.  
  199. % ------ View clipping ------ %
  200.  
  201. /rectviewclip {            % <x> <y> <width> <height> rectviewclip -
  202.                 % <numarray|numstring> rectviewclip -
  203.   newpath .rectappend viewclip
  204. } odef
  205.