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