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 / ps2epsi.ps < prev    next >
Text File  |  1996-09-22  |  7KB  |  236 lines
  1. %    Copyright (C) 1990, 1995 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. % Convert an arbitrary PostScript file to an EPSI file.
  19. %
  20. % Original version contributed by
  21. %   George Cameron <george@bio-medical-physics.aberdeen.ac.uk>
  22. % Patched 7/26/95 by
  23. %   Greg P. Kochanski <gpk@hce.hst.mh.att.com> or <gpk@physics.att.com>
  24. %   to add many new DSC comments and make the comments conforming.
  25. % Please contact these users if you have questions.
  26. %
  27.  
  28. % Initialize, and redefine copypage and showpage.
  29.  
  30. % ps2edict is defined in the pre-loaded code created by the ps2epsi script.
  31. % /ps2edict 25 dict def
  32. ps2edict begin
  33.  
  34.                 % The main procedure
  35.   /ps2epsi
  36.    {                % Open the file
  37.      outfile (w) file /epsifile exch def
  38.                     % Get the device parameters
  39.      currentdevice getdeviceprops .dicttomark
  40.      /HWSize get aload pop
  41.        /devheight exch def
  42.        /devwidth exch def
  43.      matrix defaultmatrix
  44.        /devmatrix exch def
  45.                 % Make a corresponding memory device
  46.      devmatrix devwidth devheight <ff 00>
  47.      makeimagedevice
  48.      /arraydevice exch def
  49.      arraydevice setdevice  % (does an erasepage)
  50.      /rowwidth devwidth 7 add 8 idiv def
  51.      /row rowwidth string def
  52.                 % Replace the definition of showpage
  53.      userdict /showpage { ps2edict begin epsipage end } bind put
  54.      userdict /setfont { ps2edict begin epsisetfont end } bind put
  55.    } def
  56.  
  57.  /epsifontdict 100 dict def
  58.  
  59.  /epsisetfont
  60.  {
  61.  % code here keeps a list of font names in dictionary epsifontdict
  62.  /tmpfont exch def
  63.  /tmpfontname tmpfont /FontName get def
  64.  epsifontdict tmpfontname known not { epsifontdict tmpfontname 0 put } if
  65.  epsifontdict tmpfontname
  66.     epsifontdict tmpfontname get 1 add put
  67.  tmpfont setfont
  68.  } bind def
  69.  
  70.  /margintest
  71.  {
  72.       { dup arraydevice exch row copyscanlines pop
  73.     -1 0 1 rowwidth 1 sub
  74.     { dup row exch get 0 ne { exit }{ pop } ifelse
  75.     } for
  76.     dup -1 ne { exch pop } if
  77.     -1 ne { exit } if pop
  78.       } for
  79.  } bind def
  80.  
  81.  
  82.   /epsiNameStr 200 string def
  83.   /epsiNpages 0 def
  84.   /epsiNpageStr 20 string def
  85.   /epsipage
  86.    {
  87.      /epsiNpages epsiNpages 1 add def
  88.      /loopcount devheight 1 sub def
  89.  
  90.      % Find top margin
  91.      -1 0 1 loopcount margintest
  92.      dup -1 eq { (blank page!!\n) print quit }{ exch pop } ifelse 
  93.      /tm exch def
  94.  
  95.      % Find bottom margin
  96.      loopcount -1 0 margintest
  97.      /bm exch def
  98.      
  99.      % Initialise limit variables
  100.      /loopcount rowwidth 1 sub def
  101.      /lm loopcount def /lmb 0 def
  102.      /rm 0 def /rmb 0 def
  103.  
  104.      % Find left and right boundaries of image
  105.      tm 1 bm
  106.       { % Get more data
  107.     arraydevice exch row copyscanlines pop
  108.     % Scan from left to find first non-zero element
  109.     % We save first the element, then the index
  110.     -1 0 1 loopcount
  111.     { dup row exch get dup 0 ne { exch exit }{ pop pop } ifelse
  112.     } for
  113.     % If we found -1, row is blank ..
  114.     dup -1 ne 
  115.     { % Find the leftmost index
  116.           dup lm lt
  117.           % If the new index is less, we save index and element
  118.           { /lm exch def /lmb exch def }
  119.           % If the index is equal, we or the bits together
  120.           { lm eq { lmb or /lmb exch def }{ pop } ifelse
  121.           } ifelse
  122.       % Now find the rightmost index
  123.       loopcount -1 0
  124.           { dup row exch get dup 0 ne { exch exit }{ pop pop } ifelse
  125.           } for
  126.       dup rm gt
  127.           % If the new index is greater, we save index and element
  128.           { /rm exch def /rmb exch def }
  129.           % If the index is equal, or the bits
  130.           { rm eq { rmb or /rmb exch def } { pop } ifelse
  131.           } ifelse
  132.     } if
  133.     pop
  134.       } for
  135.  
  136.      % Now we find the real left & right bit positions
  137.      256 0 1 7
  138.      { exch 2 div dup lmb le { pop exit }{ exch pop } ifelse
  139.      } for
  140.      /lmb exch def
  141.  
  142.      1 7 -1 0
  143.      { exch dup dup rmb and eq { pop exit }{ 2 mul exch pop } ifelse
  144.      } for
  145.      /rmb exch def
  146.  
  147.      % Calculate the bounding box values
  148.      /llx lm 8 mul lmb add  1 sub def
  149.      /lly devheight bm sub  1 sub def
  150.      /urx rm 8 mul rmb add 1 add def
  151.      /ury devheight tm sub 1 add def
  152.  
  153.     % Write out the magic string and bounding box information
  154.      epsifile (%!PS-Adobe-2.0 EPSF-1.2\n) writestring
  155.      epsifile epsititle writestring
  156.      epsifile epsicreator writestring
  157.      epsifile epsicrdt writestring
  158.      epsifile epsifor writestring
  159.      epsifile flushfile
  160.  
  161.     % Write out the page count:
  162.      epsifile (%%Pages: ) writestring
  163.      epsifile epsiNpages epsiNpageStr cvs writestring
  164.      epsifile (\n) writestring
  165.      epsifile flushfile
  166.  
  167.     % Write out the list of used fonts:
  168.      epsifile (%%DocumentFonts:) writestring
  169.      epsifontdict {
  170.                     epsifile ( ) writestring
  171.                     pop epsiNameStr cvs epsifile exch writestring
  172.                     } forall
  173.      epsifile (\n) writestring
  174.      epsifile flushfile
  175.  
  176.      epsifile (%%BoundingBox: ) writestring
  177.      epsifile llx write==only epsifile ( ) writestring
  178.      epsifile lly write==only epsifile ( ) writestring
  179.      epsifile urx write==only epsifile ( ) writestring
  180.      epsifile ury write==
  181.      epsifile (%%BeginPreview: ) writestring
  182.      epsifile urx llx sub 1 add write==only epsifile ( ) writestring
  183.      epsifile bm tm sub 1 add write==only epsifile ( 1 ) writestring
  184.      epsifile bm tm sub 1 add write==
  185.      epsifile flushfile
  186.  
  187.     % Define character and bit widths for the output line buffer:
  188.      /cwidth rm lm sub 1 add 8 mul 7 add 8 idiv def
  189.      /bwidth cwidth 8 mul def
  190.      /owidth urx llx sub 1 add 7 add 8 idiv def
  191.      /out cwidth string def
  192.  
  193.      % Create a 1-bit-high device for bitblt to align with the bbox
  194.      gsave
  195.      matrix cwidth 8 mul 1 <00 ff> makeimagedevice setdevice
  196.  
  197.      % 'image' a zero string to clear the line device
  198.      bwidth 1 1 matrix cwidth string image
  199.  
  200.      tm 1 bm
  201.       { % Get a scan line interval from the array device
  202.     arraydevice exch row copyscanlines lm cwidth getinterval
  203.     lmb 0 gt
  204.     { % 'image' it into the line device with the lmb offset
  205.       bwidth 1 1 [1 0 0 1 lmb 0] 5 -1 roll image
  206.       % Now we get the modified scan line
  207.       currentdevice 0 out copyscanlines 0 owidth getinterval
  208.     } if
  209.     % Write out the hex data
  210.     epsifile (% ) writestring 
  211.     epsifile exch writehexstring
  212.     epsifile (\n) writestring
  213.       } for
  214.  
  215.      epsifile (%%EndImage\n) writestring
  216.      epsifile (%%EndPreview\n) writestring
  217.      epsifile flushfile
  218.      grestore
  219.      erasepage initgraphics
  220.  
  221.      DonePage 0 1 put
  222.    } bind def
  223.  
  224.  
  225. (outfile) getenv
  226.   { /outfile exch def 
  227.     ps2epsi
  228.  
  229.     /DonePage 1 string def
  230.     (%stdin) (r) file cvx execute0
  231.     DonePage 0 get 0 eq { showpage } if
  232.   } if
  233.  
  234. end
  235. quit
  236.