home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / APPS / gs403osk.tgz / gs403osk.tar / gs_fform.ps < prev    next >
Text File  |  1996-10-12  |  4KB  |  111 lines
  1. %    Copyright (C) 1995, 1996 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. % gs_fform.ps
  19. % Monochrome Form caching implemented in PostScript.
  20.  
  21. % This implementation is pretty unreasonable:
  22. %   - It doesn't remember transparent pixels.
  23. %   - It reduces everything to black and white.
  24. %   - It doesn't handle halftone or Pattern phasing.
  25. % However, it's good enough to produce some useful output.
  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. /formcachedict 20 dict def
  30. currentglobal true setglobal
  31. /restore
  32.  { mark formcachedict { } forall
  33.    counttomark 1 add index { restore } .internalstopped
  34.     { cleartomark restore }
  35.     { counttomark 2 idiv { formcachedict 3 1 roll put } repeat pop pop }
  36.    ifelse
  37.  } bind odef
  38.  
  39. /.form.buffer 65000 string def
  40. /execform
  41.  { dup /Implementation known not
  42.     { dup /FormType get 1 ne { /rangecheck signalerror } if
  43.       formcachedict 1 index .knownget not
  44.        { currentglobal true setglobal
  45.         % Stack: form global
  46.          10 dict
  47.        dup /ImageType 1 put
  48.        dup /ImageMatrix [0 0 0 0 0 0] put
  49.        dup /DataSource
  50.         {   % Stack: y (impl is on dict stack)
  51.           Height 1 index sub
  52.           //.form.buffer length Width 7 add 8 idiv idiv .min
  53.               1 index add exch
  54.           Device exch //.form.buffer copyscanlines
  55.         }
  56.        put
  57.        dup /BitsPerComponent 1 put
  58.        dup /Decode [0 1] put
  59.        dup /Device null put
  60.         % Stack: form global impl
  61.      formcachedict 3 index 2 index put
  62.          exch setglobal
  63.        }
  64.       if 1 index /Implementation 3 -1 roll put
  65.     }
  66.    if
  67.    gsave dup /Matrix get concat
  68.    dup /Implementation get
  69.         % Check whether we can use the cached value.
  70.         % Stack: form implementation
  71.    dup /ImageMatrix get matrix currentmatrix
  72.    true 0 1 3
  73.     {       % Stack: form impl cachemat curmat true index
  74.       3 index 1 index get exch 3 index exch get ne { pop false exit } if
  75.     }
  76.    for      % Stack: form impl cachemat curmat valid
  77.    exch pop exch pop not
  78.     {       % Cache is invalid.  Execute the Form and save the bits.
  79.       gsave begin
  80.       currentglobal exch true setglobal
  81.       ImageMatrix currentmatrix pop
  82.       dup /BBox get aload pop
  83.       exch 3 index sub exch 2 index sub rectclip
  84.         % Make the cache device.
  85.       clippath gsave matrix setmatrix pathbbox grestore
  86.         % We now have the bounding box in device space.
  87.       2 { 4 -1 roll floor cvi } repeat
  88.       2 { 4 -1 roll ceiling cvi } repeat
  89.       2 index sub /Height exch def
  90.       2 index sub /Width exch def
  91.       ImageMatrix aload pop
  92.       exch 7 index sub exch 6 index sub
  93.       6 array astore
  94.       3 1 roll pop pop
  95.       dup ImageMatrix copy pop
  96.       Width Height <00 ff> makeimagedevice
  97.       /Device 1 index def
  98.       nulldevice setdevice initgraphics
  99.       exch setglobal
  100.       dup dup /PaintProc get exec
  101.       nulldevice grestore currentdict end
  102.     }
  103.    if
  104.         % Now paint the bits.
  105.         % Stack: form implementation
  106.    /DeviceGray setcolorspace dup begin 0 exch image end pop
  107.    pop grestore
  108.  } odef
  109.  
  110. setglobal
  111.