home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / GhostScript / !GhostScr / 6_01 / lib / ps2epsi.ps < prev    next >
Text File  |  2000-03-09  |  9KB  |  259 lines
  1. %    Copyright (C) 1990, 1995, 1997, 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: ps2epsi.ps,v 1.1 2000/03/09 08:40:40 lpd Exp $
  19. % Convert an arbitrary PostScript file to an EPSI file.
  20. %
  21. % Please do not contact these users if you have questions.  They no longer
  22. % have the time, interest, or current expertise to keep this code working.
  23. % If you find bugs, please send proposed fixes to gs-bugs@aladdin.com.
  24. %
  25. % Bug fix 8/21/99 by lpd: many of the margin and width computations were
  26. %   wrong (off by 1).  The code only "worked" because the bugs were
  27. %   (mostly) in conservative directions.
  28. % Modified 3/17/98 by lpd to make it possible to run this file without
  29. %   running the ps2epsi script first, for debugging.
  30. % Bug fix 9/29/97 by lpd <ghost@aladdin.com>: if the page size wasn't an
  31. %   exact multiple of 8 bits, an incorrect bounding box (or a rangecheck
  32. %   error) could occur.
  33. % Patched 7/26/95 by
  34. %    Greg P. Kochanski <gpk@bell-labs.com>
  35. %   to add many new DSC comments and make the comments conforming.
  36. % Original version contributed by
  37. %    George Cameron <george@bio-medical-physics.aberdeen.ac.uk>
  38. %
  39.  
  40. % Initialize, and redefine copypage and showpage.
  41.  
  42. % ps2edict is normally defined in the pre-loaded code created by the
  43. % ps2epsi script.
  44. /ps2edict where { pop } { /ps2edict 25 dict def } ifelse
  45. ps2edict begin
  46.  
  47.                 % The main procedure
  48.   /ps2epsi
  49.    {                % Open the file
  50.      outfile (w) file /epsifile exch def
  51.                     % Get the device parameters
  52.      currentdevice getdeviceprops .dicttomark
  53.      /HWSize get aload pop
  54.        /devheight exch def
  55.        /devwidth exch def
  56.      matrix defaultmatrix
  57.        /devmatrix exch def
  58.                 % Make a corresponding memory device
  59.      devmatrix devwidth devheight <ff 00>
  60.      makeimagedevice
  61.      /arraydevice exch def
  62.      arraydevice setdevice    % (does an erasepage)
  63.      /rowwidth devwidth 7 add 8 idiv def
  64.      /row rowwidth string def
  65.      /zerorow rowwidth string def    % all zero
  66.                 % Replace the definition of showpage
  67.      userdict /showpage { ps2edict begin epsipage end } bind put
  68.      userdict /setfont { ps2edict begin epsisetfont end } bind put
  69.    } def
  70.  
  71.  /epsifontdict 100 dict def
  72.  
  73.  /epsisetfont
  74.  {
  75.  % code here keeps a list of font names in dictionary epsifontdict
  76.  /tmpfont exch def
  77.  /tmpfontname tmpfont /FontName get def
  78.  epsifontdict tmpfontname known not { epsifontdict tmpfontname 0 put } if
  79.  epsifontdict tmpfontname
  80.     epsifontdict tmpfontname get 1 add put
  81.  tmpfont setfont
  82.  } bind def
  83.  
  84. % Get a scan line from the memory device, zeroing any bits beyond
  85. % the device width.
  86. /getscanline {        % <device> <y> <string> getscanline <string>
  87.   dup 4 1 roll copyscanlines pop
  88.   16#ff00 devwidth 7 and neg bitshift 255 and
  89.   dup 0 ne {
  90.     1 index dup length 1 sub 2 copy get 4 -1 roll and put
  91.   } {
  92.     pop
  93.   } ifelse
  94. } bind def
  95.  
  96. /margintest {        % <y-start> <step> <y-limit> margintest <y-non-blank>
  97.             % <y-start> <step> <y-limit> margintest -
  98.   { dup arraydevice exch row getscanline
  99.     zerorow ne { exit } if pop
  100.   } for
  101. } bind def
  102.  
  103.  
  104.   /epsiNameStr 200 string def
  105.   /epsiNpages 0 def
  106.   /epsiNpageStr 20 string def
  107.   /epsipage
  108.    {
  109.      /epsiNpages epsiNpages 1 add def
  110.      /loopcount devheight 1 sub def
  111.  
  112.      % Find top margin -- minimum Y of non-blank scan line.
  113.      -1 0 1 loopcount margintest
  114.      dup -1 eq { (blank page!!\n) print quit }{ exch pop } ifelse 
  115.      /tm exch def
  116.  
  117.      % Find bottom margin -- maximum Y of non-blank scan line.
  118.      loopcount -1 0 margintest
  119.      /bm exch def
  120.      
  121.      % Initialise limit variables
  122.      /loopcount rowwidth 1 sub def
  123.      /lm loopcount def /lmb 0 def
  124.      /rm 0 def /rmb 0 def
  125.  
  126.      % Find left and right boundaries of image
  127.      tm 1 bm
  128.       { % Get more data
  129.     arraydevice exch row getscanline pop
  130.     % Scan from left to find first non-zero element
  131.     % We save first the element, then the index
  132.     -1 0 1 loopcount
  133.     { dup row exch get dup 0 ne { exch exit }{ pop pop } ifelse
  134.     } for
  135.     % If we found -1, row is blank ..
  136.     dup -1 ne 
  137.     { % Find the leftmost index
  138.           dup lm lt
  139.           % If the new index is less, we save index and element
  140.           { /lm exch def /lmb exch def }
  141.           % If the index is equal, we or the bits together
  142.           { lm eq { lmb or /lmb exch def }{ pop } ifelse
  143.           } ifelse
  144.       % Now find the rightmost index
  145.       loopcount -1 0
  146.           { dup row exch get dup 0 ne { exch exit }{ pop pop } ifelse
  147.           } for
  148.       dup rm gt
  149.           % If the new index is greater, we save index and element
  150.           { /rm exch def /rmb exch def }
  151.           % If the index is equal, or the bits
  152.           { rm eq { rmb or /rmb exch def } { pop } ifelse
  153.           } ifelse
  154.     } if
  155.     pop
  156.       } for
  157.  
  158.      % Now we find the real left & right bit positions
  159.      256 0 1 7
  160.      { exch 2 div dup lmb le { pop exit }{ exch pop } ifelse
  161.      } for
  162.      /lmb exch def
  163.  
  164.      1 7 -1 0
  165.      { exch dup dup rmb and eq { pop exit }{ 2 mul exch pop } ifelse
  166.      } for
  167.      /rmb exch def
  168.  
  169.      % Calculate the bounding box values.
  170.      % Note that these must be corrected to produce closed-open intervals.
  171.      /llx lm 8 mul lmb add def
  172.      /lly devheight bm sub 1 sub def
  173.      /urx rm 8 mul rmb add 1 add def
  174.      /ury devheight tm sub def
  175.  
  176.     % Write out the magic string and bounding box information
  177.      epsifile (%!PS-Adobe-2.0 EPSF-1.2\n) writestring
  178.      /epsititle where { pop epsifile epsititle writestring } if
  179.      /epsicreator where { pop epsifile epsicreator writestring } if
  180.      /epsicrdt where { pop epsifile epsicrdt writestring } if
  181.      /epsifor where { pop epsifile epsifor writestring } if
  182.      epsifile flushfile
  183.  
  184.     % Write out the page count:
  185.      epsifile (%%Pages: ) writestring
  186.      epsifile epsiNpages epsiNpageStr cvs writestring
  187.      epsifile (\n) writestring
  188.      epsifile flushfile
  189.  
  190.     % Write out the list of used fonts:
  191.      epsifile (%%DocumentFonts:) writestring
  192.      epsifontdict {
  193.                     epsifile ( ) writestring
  194.                     pop epsiNameStr cvs epsifile exch writestring
  195.                     } forall
  196.      epsifile (\n) writestring
  197.      epsifile flushfile
  198.  
  199.      epsifile (%%BoundingBox: ) writestring
  200.      epsifile llx write==only epsifile ( ) writestring
  201.      epsifile lly write==only epsifile ( ) writestring
  202.      epsifile urx write==only epsifile ( ) writestring
  203.      epsifile ury write==
  204.      epsifile (%%BeginPreview: ) writestring
  205.      epsifile urx llx sub write==only epsifile ( ) writestring
  206.      epsifile bm tm sub 1 add write==only epsifile ( 1 ) writestring
  207.      epsifile bm tm sub 1 add write==
  208.      epsifile flushfile
  209.  
  210.     % Define character and bit widths for the output line buffer:
  211.      /cwidth rm lm sub 1 add def
  212.      /bwidth cwidth 8 mul def
  213.      /owidth urx llx sub 7 add 8 idiv def
  214.      /out cwidth string def
  215.  
  216.      % Create a 1-bit-high device for bitblt to align with the bbox
  217.      gsave
  218.      matrix cwidth 8 mul 1 <00 ff> makeimagedevice setdevice
  219.  
  220.      % 'image' a zero string to clear the line device
  221.      bwidth 1 1 matrix cwidth string image
  222.  
  223.      tm 1 bm
  224.       { % Get a scan line interval from the array device
  225.     arraydevice exch row copyscanlines lm cwidth getinterval
  226.     lmb 0 gt
  227.     { % 'image' it into the line device with the lmb offset
  228.       bwidth 1 1 [1 0 0 1 lmb 0] 5 -1 roll image
  229.       % Now we get the modified scan line
  230.       currentdevice 0 out copyscanlines 0 owidth getinterval
  231.     } if
  232.     % Write out the hex data
  233.     epsifile (% ) writestring 
  234.     epsifile exch writehexstring
  235.     epsifile (\n) writestring
  236.       } for
  237.  
  238.      epsifile (%%EndImage\n) writestring
  239.      epsifile (%%EndPreview\n) writestring
  240.      epsifile flushfile
  241.      grestore
  242.      erasepage initgraphics
  243.  
  244.      DonePage 0 1 put
  245.    } bind def
  246.  
  247.  
  248. (outfile) getenv
  249.   { /outfile exch def 
  250.     ps2epsi
  251.  
  252.     /DonePage 1 string def
  253.     (%stdin) (r) file cvx execute0
  254.     DonePage 0 get 0 eq { showpage } if
  255.   } if
  256.  
  257. end
  258. quit
  259.