home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / GhostScript / !GhostScr / 6_01 / lib / gs_dps.ps < prev    next >
Text File  |  2000-03-09  |  7KB  |  200 lines
  1. %    Copyright (C) 1997, 1998 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % $Id: gs_dps.ps,v 1.1 2000/03/09 08:40:39 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 .forceput    % systemdict is read-only
  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 exch .copydict
  107.     } {
  108.       1 index /userparams eq {
  109.         % Stack: userparams 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. % Create a context with private local VM.
  129. % The .localfork operator does all the work, but we must ensure that
  130. % .initlocaldicts gets called when the new context starts up.
  131. /localfork {            % <mark> <obj1> ... <objN> <proc>
  132.                 %   <stdin|null> <stdout|null>
  133.                 %   localfork <context>
  134.   .currentglobal true .setglobal 3 index
  135.   dup dup xcheck
  136.   exch type dup /arraytype eq exch /packedarraytype eq or and not {
  137.     pop .setglobal /localfork cvx /typecheck signalerror
  138.   } if
  139.   {exec .initlocaldicts} aload pop
  140.   3 1 roll 3 packedarray cvx
  141.   4 1 roll 5 -1 roll pop .setglobal .localfork
  142. } odef
  143.  
  144. % Fork a context that shares VM.  We still need to fill in userparams
  145. % when the new context starts up.
  146. /.postfork {        % - .postfork -
  147.     % Initialize the user parameters.
  148.   savedlocaldicts /userparams get userparams .copydict readonly pop
  149. } odef
  150. /fork {            % <mark> <obj1> ... <objN> <proc> fork <context>
  151.   .currentglobal false .setglobal 1 index
  152.   dup dup xcheck
  153.   exch type dup /arraytype eq exch /packedarraytype eq or and not {
  154.     pop .setglobal /fork cvx /typecheck signalerror
  155.   } if
  156.   {exec .postfork} aload pop
  157.   3 1 roll 3 packedarray cvx
  158.   3 1 roll exch pop .setglobal .fork
  159. } odef
  160.  
  161. % ------ Halftone phase ------ %
  162.  
  163. /sethalftonephase {        % <x> <y> sethalftonephase -
  164.   -1 2 index 2 index .setscreenphase pop pop
  165. } odef
  166. /currenthalftonephase {        % - currenthalftonephase <x> <y>
  167.   0 .currentscreenphase
  168. } odef
  169.  
  170. % ------ Device-source images ------ */
  171.  
  172. .imagetypes 2 /.image2 load put
  173.  
  174. % ------ Device information ------ %
  175.  
  176. /.deviceinfodict mark
  177.   /Colors null /GrayValues null /RedValues null /GreenValues null
  178.   /BlueValues null /ColorValues null
  179. .dicttomark readonly def
  180. /deviceinfo {            % - deviceinfo <dict>
  181.   currentdevice //.deviceinfodict .getdeviceparams .dicttomark readonly
  182. } odef
  183.  
  184. % The current implementation allocates a 2-element array each time.
  185. % Perhaps we should change this to 2 separate parameters for X and Y?
  186. /.wtdict mark
  187.   /wtranslation null
  188. .dicttomark readonly def
  189. /wtranslation {            % - wtranslation <x> <y>
  190.   currentdevice //.wtdict .getdeviceparams exch pop exch pop aload pop
  191. } odef
  192. currentdict /.wtdict .undef
  193.  
  194. % ------ View clipping ------ %
  195.  
  196. /rectviewclip {            % <x> <y> <width> <height> rectviewclip -
  197.                 % <numarray|numstring> rectviewclip -
  198.   newpath .rectappend viewclip
  199. } odef
  200.