home *** CD-ROM | disk | FTP | other *** search
/ jppd.dyndns.org / jppd.dyndns.org.tar / jppd.dyndns.org / QUERYPRO / Actualizar / Impressora_PDF / converter.exe / GPLGS / gs_epsf.ps < prev    next >
Text File  |  2003-04-13  |  7KB  |  243 lines
  1. %    Copyright (C) 1989, 1996, 2002 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: gs_epsf.ps,v 1.14 2003/04/12 18:08:18 ray Exp $
  17. % Allow the interpreter to encapsulate EPS files, to recognize MS-DOS 
  18. % EPSF file headers, and skip to the PostScript section of the file.
  19.  
  20. % Encapsulate EPS files and optionally resize page or rescale image.
  21. % To display an EPS file cropped to the bounding box:
  22. %  gs -dEPSCrop file.eps
  23. % To display an EPS file scaled to fit the page:
  24. %  gs -dEPSFitPage file.eps
  25. % To display a file without EPS encapsulation:
  26. %  gs -dNOEPS file.ps
  27.  
  28. % When starting to process an EPS file, state is 0.
  29. % After %%BoundingBox processed, state is 1.
  30. % After %%HiResBoundingBox processed, state is 2.
  31. % After %%EndComments processed, state is 3.
  32. /EPSBoundingBoxState 3 def
  33. /EPSBoundingBoxSetState {
  34.   //systemdict /EPSBoundingBoxState 3 -1 roll .forceput
  35. } .bind odef % .forceput must be bound and hidden
  36.  
  37. % Parse 4 numbers for a bounding box
  38. /EPSBoundingBoxParse { % (llx lly urx ury) -- llx lly urx ury true OR false
  39.     mark exch
  40.     token {exch token {exch token {exch token {exch pop} if} if} if} if
  41.     counttomark
  42.     4 eq {
  43.       5 -1 roll pop % remove mark
  44.       true
  45.     } {
  46.       cleartomark false
  47.     } ifelse
  48. } bind def
  49.  
  50. % Rescale and translate to fit the BoundingBox on the page
  51. /EPSBoundingBoxFitPage { % llx lly urx ury --
  52.   EPSDEBUG { (gs_epsf.ps: Rescaling EPS to fit page\n) print flush } if
  53.   clippath pathbbox newpath
  54.   % translate to new origin at lower left of clippath
  55.   3 index 3 index translate
  56.   % calculate scale to fit smaller of width or height
  57.   exch 4 -1 roll sub 3 1 roll exch sub 
  58.   4 2 roll 5 index 5 index 4 2 roll
  59.   exch 4 -1 roll sub 3 1 roll exch sub 
  60.   4 2 roll
  61.   exch 4 -1 roll div 3 1 roll exch div
  62.   1 index 1 index lt {pop}{exch pop} ifelse
  63.   dup scale
  64.   % translate to EPS -llx,-lly
  65.   exch neg exch neg translate
  66. } bind def
  67.  
  68. % Crop the page to the BoundingBox
  69. /EPSBoundingBoxCrop { % llx lly urx ury --
  70.   EPSDEBUG { 
  71.     (gs_epsf.ps: Setting pagesize from EPS bounding box\n) print flush 
  72.   } if
  73.   exch 3 index sub exch 2 index sub % stack: llx lly urx-llx ury-lly
  74.   << /PageSize [ 5 -2 roll ] >> setpagedevice
  75.   neg exch neg exch translate
  76. } bind def
  77.  
  78.  
  79. /EPSBoundingBoxProcess { % (llx lly urx ury) state --
  80.   //systemdict /EPSBoundingBoxState get 1 index lt {
  81.     exch EPSBoundingBoxParse 
  82.     {
  83.       //systemdict /EPSCrop known {
  84.         EPSBoundingBoxCrop
  85.       } {
  86.         //systemdict /EPSFitPage known {
  87.           EPSBoundingBoxFitPage
  88.     } {
  89.       % Warn if some of the EPS file will be clipped
  90.       clippath pathbbox newpath
  91.       { % context for exit
  92.         5 -1 roll lt { 6 { pop } repeat true exit } if
  93.         4 -1 roll lt { 4 { pop } repeat true exit } if
  94.         3 -1 roll gt { 2 { pop } repeat true exit } if
  95.         exch gt { true exit } if
  96.         false exit
  97.       } loop
  98.       QUIET not and {
  99.         (\n   **** Warning: Some of the BoundingBox for the EPS file will be clipped.) =
  100.         (                 Use -dEPSCrop or -dEPSFitPage to avoid clipping.\n) =
  101.         flush
  102.       } if
  103.     } ifelse
  104.       } ifelse
  105.       EPSBoundingBoxSetState
  106.     } {
  107.       pop % state
  108.     } ifelse
  109.   } {
  110.     pop pop
  111.   } ifelse
  112. } bind def
  113.  
  114. /ProcessEPSComment { % file comment --  file comment
  115.   //systemdict /EPSBoundingBoxState get 3 lt {
  116.     dup
  117.     (%%EndComments) anchorsearch {
  118.       pop pop
  119.       % ignore any following bounding boxes
  120.       3 EPSBoundingBoxSetState
  121.     } {
  122.       (%%BoundingBox:) anchorsearch {
  123.     pop 
  124.     EPSDEBUG { (gs_epsf.ps: found %%BoundingBox\n) print flush } if
  125.     1 EPSBoundingBoxProcess
  126.       } {
  127.     (%%HiResBoundingBox:) anchorsearch {
  128.       pop 
  129.       EPSDEBUG { (gs_epsf.ps: found %%HiResBoundingBox\n) print flush } if
  130.     2 EPSBoundingBoxProcess
  131.     } { 
  132.       pop % Not interested in this DSC comment
  133.     } ifelse
  134.       } ifelse
  135.     } ifelse
  136.   } if
  137. } bind def
  138.  
  139. % Install EPS handler for DSC comments, which we do later
  140. /EPSBoundingBoxInit {
  141.   systemdict /NOEPS known not {
  142.     % Merge ProcessEPSComment with existing handler
  143.     /ProcessEPSComment load /exec load
  144.     currentuserparams /ProcessDSCComment get 
  145.     dup null eq {pop {pop pop}} if /exec load
  146.     4 array astore cvx readonly
  147.     << /ProcessDSCComment 3 -1 roll >> setuserparams
  148.   } if
  149. } bind def
  150.  
  151. /.runNoEPS /run load def
  152.  
  153. /.runEPS { % file OR string --
  154.   /runEPS_save save def
  155.   /runEPS_dict_count countdictstack def
  156.   /runEPS_op_count count 2 sub def
  157.   /runEPS_page_count currentpagedevice /PageCount get def 
  158.   0 EPSBoundingBoxSetState
  159.   .runNoEPS
  160.   currentpagedevice /PageCount get runEPS_page_count sub 0 eq 
  161.   { /showpage load exec } if
  162.   count runEPS_op_count sub {pop} repeat
  163.   countdictstack runEPS_dict_count sub {end} repeat
  164.   runEPS_save restore
  165. } bind def
  166.  
  167. /run { % file OR string --
  168.   dup type /filetype ne { (r) file } if
  169.   dup (%!PS-Adobe-) .peekstring {
  170.     (%!PS-Adobe-) eq {
  171.       dup (%!PS-Adobe-X.X EPSF-X.X) .peekstring {
  172.       (EPSF) search {
  173.         pop pop pop
  174.         EPSDEBUG {(runEPS: Found EPS\n) print flush} if
  175.         systemdict /NOEPS known {
  176.           cvx .runNoEPS
  177.         } {
  178.           cvx .runEPS
  179.         } ifelse
  180.       } {
  181.         EPSDEBUG {(runEPS: Normal DSC\n) print flush} if
  182.         pop
  183.           cvx .runNoEPS
  184.  
  185.       } ifelse
  186.       } {
  187.         EPSDEBUG {(runEPS: Short DSC\n) print flush} if
  188.       pop
  189.         cvx .runNoEPS
  190.       } ifelse
  191.     } {
  192.       EPSDEBUG {(runEPS: Not DSC\n) print flush} if
  193.       cvx .runNoEPS
  194.     } ifelse
  195.   } {
  196.     EPSDEBUG {(runEPS: Short non-DSC\n) print flush} if
  197.     pop
  198.     cvx .runNoEPS
  199.   } ifelse
  200. } bind odef
  201.  
  202.  
  203. % Handle DOS EPS files.
  204.  
  205. /.runnoepsf /run load def
  206. /.epsfheader <C5D0D3C6> def
  207. /run
  208.  { dup type /filetype ne { (r) file } if
  209.         % Check for MS-DOS EPSF file (see Red Book p. 729).
  210.  dup (    ) .peekstring 
  211.   { .epsfheader eq { dup (    ) readstring exch pop } { false } ifelse }
  212.   { pop false }
  213.  ifelse
  214.         % Stack: file true/false
  215.     {        % This block is executed if the file is MS-DOS EPSF.
  216.         % Build up the little-endian byte offset and length.
  217.       2
  218.     { 1 0 4
  219.        { 2 index read not { pop exit } if % if EOF, let error happen
  220.          2 index mul add exch 256 mul exch
  221.        }
  222.       repeat exch pop exch
  223.     }
  224.       repeat
  225.         % Stack: offset length file
  226.         % Use flushfile to skip quickly to the start of the
  227.         % PostScript section.
  228.       dup 4 -1 roll 12 sub () /SubFileDecode filter flushfile
  229.         % Now interpret the PostScript.
  230.       exch () /SubFileDecode filter cvx run
  231.     }
  232.     { .runnoepsf
  233.     }
  234.    ifelse
  235.  } odef
  236.  
  237. % rebind .runstdin to use redefined run
  238. userdict begin
  239. /.runstdin {
  240.   { (%stdin) run } execute0
  241. } bind def
  242. end
  243.