home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / GhostScript / !GhostScr / 6_01 / lib / gs_fform.ps < prev    next >
Text File  |  2000-03-09  |  3KB  |  95 lines
  1. %    Copyright (C) 1995, 1996, 1998, 1999 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_fform.ps,v 1.1 2000/03/09 08:40:39 lpd Exp $
  19. % Form caching implemented in PostScript.
  20.  
  21. % This implementation doesn't do the right thing about halftone or
  22. % Pattern phase, but the Pattern cache doesn't either....
  23.  
  24. % The Form cache key is the Form dictionary; the value is an array
  25. % of 2 elements [CTM pattern_instance].
  26. %
  27. % In order to prevent restore from clearing the cache, we explicitly
  28. % push the cache entries on the stack before a restore and reinstall them.
  29. currentglobal false setglobal
  30. /.formcachedict 20 dict def    % must be local
  31. true setglobal
  32. /restore {
  33.   mark .formcachedict { } forall
  34.   counttomark 1 add index { //restore } .internalstopped
  35.     { cleartomark //restore }
  36.     { counttomark 2 idiv { .formcachedict 3 1 roll put } repeat pop pop }
  37.   ifelse
  38. } bind odef
  39.  
  40. /.execform1 {
  41.   dup /Implementation known not {
  42.     dup /FormType get 1 ne { /rangecheck signalerror } if
  43.         % The Implementation is a Pattern that will draw the form.
  44.     currentglobal 1 index gcheck setglobal
  45.         % Stack: form global
  46.     10 dict begin
  47.       /PatternType 1 def
  48.       /PaintType 1 def    % colored
  49.       /TilingType 1 def    % irrelevant
  50.         % Copy the BBox to the correct VM.
  51.       /BBox 2 index /BBox get 4 array copy exch 1 index def
  52.         % Set XStep and YStep to very large numbers,
  53.         % so we won't get multiple copies of the form.
  54.       /XStep 1 index dup 2 get exch 0 get sub 100 mul def
  55.       /YStep exch dup 3 get exch 1 get sub 100 mul def
  56.       /PaintProc 2 index /PaintProc get def
  57.     currentdict end readonly
  58.         % Stack: form global impl
  59.     exch setglobal
  60.     1 index /Implementation 3 -1 roll .forceput
  61.   } if
  62.   .formcachedict 1 index .knownget {
  63.         % Check whether we can use the cached value.
  64.         % Stack: form cachevalue
  65.     matrix currentmatrix true 0 1 3 {
  66.         % Stack: form cachevalue curmat true index
  67.       3 index 0 get 1 index get exch 3 index exch get ne {
  68.     pop pop false exit
  69.       } if
  70.     } for exch pop
  71.   } {
  72.     false
  73.   } ifelse not
  74.   {        % Make a new cache entry.
  75.     gsave
  76.     matrix currentmatrix dup 4 0 put dup 5 0 put dup setmatrix
  77.         % Stack: form mat
  78.     1 index /Implementation get
  79.     2 index /Matrix get
  80.     makepattern 2 array astore
  81.     .formcachedict 2 index 2 index put
  82.     grestore
  83.   } if
  84.         % Stack: form cachevalue
  85.   -1 0 0 transform
  86.   2 { exch round cvi } repeat .setscreenphase
  87.   1 get setpattern
  88.   /BBox get aload pop
  89.   exch 3 index sub exch 2 index sub rectfill
  90. } .bind odef    % must bind .forceput
  91.  
  92. .formtypes 1 /.execform1 load put
  93.  
  94. setglobal
  95.