sys/lib/ghostscript/gs_epsf.ps

   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.15 2005/08/30 23:26:49 alexcher 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 if OK or 2 if cropped.
  30 % After %%HiResBoundingBox processed, state is 3 if OK or 4 if cropped.
  31 % After %%EndComments processed, state is 5.
  32 /EPSBoundingBoxState 5 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 /EPSBoundingBoxState .systemvar 1 and 1 eq 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             1 add
 103           } if
 104         } ifelse
 105       } ifelse
 106       EPSBoundingBoxSetState
 107     } {
 108       pop % state
 109     } ifelse
 110   } {
 111     pop pop
 112   } ifelse
 113 } bind def
 114
 115 /ProcessEPSComment { % file comment --  file comment
 116   //systemdict /EPSBoundingBoxState get 3 lt {
 117     dup
 118     (%%EndComments) anchorsearch {
 119       pop pop
 120       % ignore any following bounding boxes
 121       5 EPSBoundingBoxSetState
 122     } {
 123       (%%BoundingBox:) anchorsearch {
 124         pop
 125         EPSDEBUG { (gs_epsf.ps: found %%BoundingBox\n) print flush } if
 126         1 EPSBoundingBoxProcess
 127       } {
 128         (%%HiResBoundingBox:) anchorsearch {
 129           pop
 130           EPSDEBUG { (gs_epsf.ps: found %%HiResBoundingBox\n) print flush } if
 131         3 EPSBoundingBoxProcess
 132         } {
 133           pop % Not interested in this DSC comment
 134         } ifelse
 135       } ifelse
 136     } ifelse
 137   } if
 138 } bind def
 139
 140 % Install EPS handler for DSC comments, which we do later
 141 /EPSBoundingBoxInit {
 142   systemdict /NOEPS known not {
 143     % Merge ProcessEPSComment with existing handler
 144     /ProcessEPSComment load /exec load
 145     currentuserparams /ProcessDSCComment get
 146     dup null eq {pop {pop pop}} if /exec load
 147     4 array astore cvx readonly
 148     << /ProcessDSCComment 3 -1 roll >> setuserparams
 149   } if
 150 } bind def
 151
 152 /.runNoEPS /run load def
 153
 154 /.runEPS { % file OR string --
 155   /runEPS_save save def
 156   /runEPS_dict_count countdictstack def
 157   /runEPS_op_count count 2 sub def
 158   /runEPS_page_count currentpagedevice /PageCount get def
 159   0 EPSBoundingBoxSetState
 160   .runNoEPS
 161   currentpagedevice /PageCount get runEPS_page_count sub 0 eq
 162   { /showpage load exec } if
 163   count runEPS_op_count sub {pop} repeat
 164   countdictstack runEPS_dict_count sub {end} repeat
 165   runEPS_save restore
 166 } bind def
 167
 168 /run { % file OR string --
 169   dup type /filetype ne { (r) file } if
 170   dup (%!PS-Adobe-) .peekstring {
 171     (%!PS-Adobe-) eq {
 172       dup (%!PS-Adobe-X.X EPSF-X.X) .peekstring {
 173       (EPSF) search {
 174         pop pop pop
 175         EPSDEBUG {(runEPS: Found EPS\n) print flush} if
 176         systemdict /NOEPS known {
 177           cvx .runNoEPS
 178         } {
 179           cvx .runEPS
 180         } ifelse
 181       } {
 182         EPSDEBUG {(runEPS: Normal DSC\n) print flush} if
 183         pop
 184           cvx .runNoEPS
 185
 186       } ifelse
 187       } {
 188         EPSDEBUG {(runEPS: Short DSC\n) print flush} if
 189       pop
 190         cvx .runNoEPS
 191       } ifelse
 192     } {
 193       EPSDEBUG {(runEPS: Not DSC\n) print flush} if
 194       cvx .runNoEPS
 195     } ifelse
 196   } {
 197     EPSDEBUG {(runEPS: Short non-DSC\n) print flush} if
 198     pop
 199     cvx .runNoEPS
 200   } ifelse
 201 } bind odef
 202
 203
 204 % Handle DOS EPS files.
 205
 206 /.runnoepsf /run load def
 207 /.epsfheader <C5D0D3C6> def
 208 /run
 209  { dup type /filetype ne { (r) file } if
 210                 % Check for MS-DOS EPSF file (see Red Book p. 729).
 211  dup (    ) .peekstring
 212   { .epsfheader eq { dup (    ) readstring exch pop } { false } ifelse }
 213   { pop false }
 214  ifelse
 215                 % Stack: file true/false
 216     {           % This block is executed if the file is MS-DOS EPSF.
 217                 % Build up the little-endian byte offset and length.
 218       2
 219         { 1 0 4
 220            { 2 index read not { pop exit } if % if EOF, let error happen
 221              2 index mul add exch 256 mul exch
 222            }
 223           repeat exch pop exch
 224         }
 225       repeat
 226                 % Stack: offset length file
 227                 % Use flushfile to skip quickly to the start of the
 228                 % PostScript section.
 229       dup 4 -1 roll 12 sub () /SubFileDecode filter flushfile
 230                 % Now interpret the PostScript.
 231       exch () /SubFileDecode filter cvx run
 232     }
 233     { .runnoepsf
 234     }
 235    ifelse
 236  } odef
 237
 238 % rebind .runstdin to use redefined run
 239 userdict begin
 240 /.runstdin {
 241   { (%stdin) run } execute0
 242 } bind def
 243 end