home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / ghostscript / 8.64 / lib / ps2epsi.ps < prev    next >
Encoding:
Text File  |  2009-04-17  |  8.1 KB  |  253 lines
  1. %    Copyright (C) 1990, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: ps2epsi.ps 8726 2008-05-11 17:00:17Z alexcher $
  17. % Convert an arbitrary PostScript file to an EPSI file.
  18. %
  19. % Please do not contact these users if you have questions.  They no longer
  20. % have the time, interest, or current expertise to keep this code working.
  21. % If you find bugs, please send proposed fixes to bug-gs@ghostscript.com.
  22. %
  23. % Bug fix 2002-04-20 by rayjj: Bounding box was incorrect since it depended
  24. %   on the dither pattern and gray shade at the boundary. Changed to use
  25. %   8-bit grayscale preview image to allow correct bounding box (at the
  26. %   expense of a 8x larger preview image). Also moved .setsafe until after
  27. %   the device and file operations are complete (but still before the input
  28. %   file is processed.
  29. % Bug fix 2000-04-11 by lpd: if a font didn't have a FontName (which is the
  30. %   case for bitmap fonts produced by recent versions of dvips), setfont
  31. %   caused an error.
  32. % Bug fix 8/21/99 by lpd: many of the margin and width computations were
  33. %   wrong (off by 1).  The code only "worked" because the bugs were
  34. %   (mostly) in conservative directions.
  35. % Modified 3/17/98 by lpd to make it possible to run this file without
  36. %   running the ps2epsi script first, for debugging.
  37. % Bug fix 9/29/97 by lpd <ghost@aladdin.com>: if the page size wasn't an
  38. %   exact multiple of 8 bits, an incorrect bounding box (or a rangecheck
  39. %   error) could occur.
  40. % Patched 7/26/95 by
  41. %    Greg P. Kochanski <gpk@bell-labs.com>
  42. %   to add many new DSC comments and make the comments conforming.
  43. % Original version contributed by
  44. %    George Cameron <george@bio-medical-physics.aberdeen.ac.uk>
  45. %
  46.  
  47. % Initialize, and redefine copypage and showpage.
  48.  
  49. % ps2edict is normally defined in the pre-loaded code created by the
  50. % ps2epsi script.
  51. /ps2edict where { pop } { /ps2edict 25 dict def } ifelse
  52. ps2edict begin
  53.  
  54.                 % The main procedure
  55.   /ps2epsi
  56.    {                % Open the file
  57.      outfile (w) file /epsifile exch def
  58.                     % Get the device parameters
  59.      currentdevice getdeviceprops .dicttomark 
  60.      /HWSize get aload pop
  61.        /devheight exch def
  62.        /devwidth exch def
  63.      matrix defaultmatrix
  64.        /devmatrix exch def
  65.                 % Make a corresponding 8-bit deep memory device
  66.      devmatrix devwidth devheight
  67.      256 string 0 1 255 { 1 index exch dup 255 exch sub put } for
  68.      makeimagedevice
  69.      /arraydevice exch def
  70.      arraydevice
  71.      % Turn on anti-aliasing
  72.      mark /TextAlphaBits 4 /GraphicsAlphaBits 4 6 -1 roll
  73.      putdeviceprops
  74.      setdevice    % (does an erasepage)
  75.      /rowwidth devwidth def
  76.      /row rowwidth string def
  77.      /zerorow rowwidth string def    % all zero
  78.                 % Replace the definition of showpage
  79.      userdict /showpage { ps2edict begin epsipage end } bind put
  80.      userdict /setfont { ps2edict begin epsisetfont end } bind put
  81.      userdict /setpagedevice /pop load put
  82.      //systemdict /.setsafe known { .setsafe } if
  83.    } bind def
  84.  
  85.  /epsifontdict 100 dict def
  86.  
  87.  /epsisetfont
  88.  {
  89.  % code here keeps a list of font names in dictionary epsifontdict
  90.  /tmpfont exch def
  91.  tmpfont /FontName known {
  92.    /tmpfontname tmpfont /FontName get def
  93.    epsifontdict tmpfontname known not { epsifontdict tmpfontname 0 put } if
  94.    epsifontdict tmpfontname 2 copy get 1 add put
  95.  } if
  96.  tmpfont setfont
  97.  } bind def
  98.  
  99. % Get a scan line from the memory device, zeroing any bits beyond
  100. % the device width.
  101. /getscanline {        % <device> <y> <string> getscanline <string>
  102.   dup 4 1 roll copyscanlines pop
  103.   16#ff00 devwidth 7 and neg bitshift 255 and
  104.   dup 0 ne {
  105.     1 index dup length 1 sub 2 copy get 4 -1 roll and put
  106.   } {
  107.     pop
  108.   } ifelse
  109. } bind def
  110.  
  111. /margintest {        % <y-start> <step> <y-limit> margintest <y-non-blank>
  112.             % <y-start> <step> <y-limit> margintest -
  113.   { dup arraydevice exch row getscanline
  114.     zerorow ne { exit } if pop
  115.   } for
  116. } bind def
  117.  
  118.  
  119.   /epsiNameStr 200 string def
  120.   /epsiNpages 0 def
  121.   /epsiNpageStr 20 string def
  122.   /epsipage
  123.    {      
  124.      /epsiNpages epsiNpages 1 add def
  125.      /loopcount devheight 1 sub def
  126.  
  127.      % Find top margin -- minimum Y of non-blank scan line.
  128.      -1 0 1 loopcount margintest
  129.      dup -1 eq { (blank page!!\n) print quit }{ exch pop } ifelse 
  130.      /tm exch def
  131.  
  132.      % Find bottom margin -- maximum Y of non-blank scan line.
  133.      loopcount -1 0 margintest
  134.      /bm exch def
  135.      
  136.      % Initialise limit variables
  137.      /loopcount rowwidth 1 sub def
  138.      /lm loopcount def 
  139.      /rm 0 def 
  140.  
  141.      % Find left and right boundaries of image
  142.      tm 1 bm
  143.       { % Get more data
  144.     arraydevice exch row getscanline pop
  145.     % Scan from left to find first non-zero element
  146.     % We save first the element, then the index
  147.     -1 0 1 loopcount
  148.     { dup row exch get 0 ne { exch pop exit }{ pop } ifelse
  149.     } for
  150.     % If we found -1, row is blank ..
  151.     dup -1 ne 
  152.     { % Find the leftmost index
  153.           dup lm lt
  154.           % If the new index is less, we save index and element
  155.           { /lm exch def } { pop } ifelse
  156.       % Now find the rightmost index
  157.       loopcount -1 0
  158.           { dup row exch get 0 ne { exit }{ pop } ifelse
  159.           } for
  160.       dup rm gt
  161.           % If the new index is greater, we save index and element
  162.           { /rm exch def } { pop } ifelse
  163.     } {
  164.           pop
  165.         } ifelse
  166.       } for
  167.  
  168.      % Calculate the bounding box values.
  169.      % Note that these must be corrected to produce closed-open intervals.
  170.      /llx lm def
  171.      /lly devheight bm sub 1 sub def
  172.      /urx rm 1 add def
  173.      /ury devheight tm sub def
  174.  
  175.     % Write out the magic string and bounding box information
  176.      epsifile (%!PS-Adobe-2.0 EPSF-1.2\n) writestring
  177.      /epsititle where { pop epsifile epsititle writestring } if
  178.      /epsicreator where { pop epsifile epsicreator writestring } if
  179.      /epsicrdt where { pop epsifile epsicrdt writestring } if
  180.      /epsifor where { pop epsifile epsifor writestring } if
  181.      epsifile flushfile
  182.  
  183.     % Write out the page count:
  184.      epsifile (%%Pages: ) writestring
  185.      epsifile epsiNpages epsiNpageStr cvs writestring
  186.      epsifile (\n) writestring
  187.      epsifile flushfile
  188.  
  189.     % Write out the list of used fonts:
  190.      epsifile (%%DocumentFonts:) writestring
  191.      epsifontdict {
  192.                     epsifile ( ) writestring
  193.                     pop epsiNameStr cvs epsifile exch writestring
  194.                     } forall
  195.      epsifile (\n) writestring
  196.      epsifile flushfile
  197.  
  198.      epsifile (%%BoundingBox: ) writestring
  199.      epsifile llx write==only epsifile ( ) writestring
  200.      epsifile lly write==only epsifile ( ) writestring
  201.      epsifile urx write==only epsifile ( ) writestring
  202.      epsifile ury write==
  203.  
  204.     % Define character and bit widths for the output line buffer:
  205.      /cwidth rm lm sub 1 add def
  206.      /out cwidth string def
  207.  
  208.      epsifile (%%EndComments\n\n) writestring
  209.      epsifile (%%BeginProlog\n) writestring
  210.      epsifile (%%BeginPreview: ) writestring
  211.      epsifile cwidth write==only epsifile ( ) writestring
  212.      epsifile bm tm sub 1 add write==only epsifile ( 8 ) writestring
  213.      epsifile bm tm sub 1 add
  214.      cwidth 39 add 40 idiv mul write==
  215.      epsifile flushfile
  216.  
  217.      gsave
  218.  
  219.      tm 1 bm
  220.       { % Get a scan line interval from the array device
  221.     arraydevice exch row copyscanlines lm cwidth getinterval
  222.     % Write out the hex data as 40 bytes per line (82 chars)
  223.     0 40 cwidth
  224.      { epsifile (% ) writestring 
  225.        epsifile exch 2 index exch
  226.        dup cwidth exch sub 40 .min getinterval writehexstring
  227.        epsifile (\n) writestring
  228.      } for
  229.         pop
  230.       } for
  231.  
  232.      epsifile (%%EndImage\n) writestring
  233.      epsifile (%%EndPreview\n) writestring
  234.      epsifile flushfile
  235.      grestore
  236.      erasepage initgraphics
  237.  
  238.      DonePage 0 1 put
  239.    } bind def
  240.  
  241.  
  242. (outfile) getenv
  243.   { /outfile exch def 
  244.     ps2epsi
  245.  
  246.     /DonePage 1 string def
  247.     (%stdin) (r) file cvx execute0
  248.     DonePage 0 get 0 eq { showpage } if
  249.   } if
  250.  
  251. end
  252. quit
  253.