Current File : //usr/share/ghostscript/Resource/Init/gs_epsf.ps
% Copyright (C) 2001-2019 Artifex Software, Inc.
% All Rights Reserved.
%
% This software is provided AS-IS with no warranty, either express or
% implied.
%
% This software is distributed under license and may not be copied,
% modified or distributed except as expressly authorized under the terms
% of the license contained in the file LICENSE in this distribution.
%
% Refer to licensing information at http://www.artifex.com or contact
% Artifex Software, Inc., 1305 Grant Avenue - Suite 200, Novato,
% CA 94945, U.S.A., +1(415)492-9861, for further information.
%
% Allow the interpreter to encapsulate EPS files, to recognize MS-DOS
% EPSF file headers, and skip to the PostScript section of the file.
% Encapsulate EPS files and optionally resize page or rescale image.
% To display an EPS file cropped to the bounding box:
% gs -dEPSCrop file.eps
% To display an EPS file scaled to fit the page:
% gs -dEPSFitPage file.eps
% To display a file without EPS encapsulation:
% gs -dNOEPS file.ps
% When starting to process an EPS file, state is 0.
% After %%BoundingBox processed, state is 1 if OK or 2 if cropped.
% After %%HiResBoundingBox processed, state is 3 if OK or 4 if cropped.
% After %%EndComments processed, state is 5.
/EPSBoundingBoxState 5 def
/EPSBoundingBoxSetState {
//systemdict /EPSBoundingBoxState 3 -1 roll .forceput
} .bind executeonly odef % .forceput must be bound and hidden
% Parse 4 numbers for a bounding box
/EPSBoundingBoxParse { % (llx lly urx ury) -- llx lly urx ury true OR false
mark exch
token {exch token {exch token {exch token {exch pop} if} if} if} if
counttomark
4 eq {
5 -1 roll pop % remove mark
//true
} {
cleartomark //false
} ifelse
} bind executeonly odef
% Crop the page to the BoundingBox
/EPSBoundingBoxCrop { % llx lly urx ury --
EPSDEBUG {
(gs_epsf.ps: Setting pagesize from EPS bounding box\n) print flush
} if
exch 3 index sub exch 2 index sub % stack: llx lly urx-llx ury-lly
<< /PageSize [ 5 -2 roll ] >> setpagedevice
neg exch neg exch translate
} bind executeonly odef
% Rescale, translate and rotate to fit the BoundingBox on the page
/EPSBoundingBoxFitPage { % llx lly urx ury --
EPSDEBUG { (gs_epsf.ps: Rescaling EPS to fit page\n) print flush } if
clippath pathbbox newpath
% translate to new origin at lower left of clippath
3 index 3 index translate
% Figure out if rotate is needed.
1 index 4 index sub 1 index 4 index sub eq not {
1 index 4 index sub 1 index 4 index sub gt % bbox page-clipbox page-is-landscape
6 index 10 index sub 6 index 10 index sub gt % bbox page-clipbox page-is-landscape bbox-is-landscape
xor
}{
//false
}ifelse
dup 10 1 roll % need-rotate compute need-rotate.
% if we are rotating the contents, we need to also rotate the
% bounding box of the content!
{
8 -4 roll
exch 4 -2 roll exch 4 2 roll
8 4 roll
} if
% stack: rotate-needed bbox page-clipbox
% calculate scale to fit smaller of width or height
exch 4 -1 roll sub 3 1 roll exch sub
4 2 roll 5 index 5 index 4 2 roll
exch 4 -1 roll sub 3 1 roll exch sub
4 2 roll
exch 4 -1 roll div 3 1 roll exch div
1 index 1 index lt {pop}{exch pop} ifelse
dup scale
% translate to EPS -llx,-lly
exch neg exch neg translate
% Finally perform the rotate if needed.
{ clippath pathbbox pop 0 translate 90 rotate pop pop } if
} bind executeonly odef
/EPSBoundingBoxProcess { % (llx lly urx ury) state --
//systemdict /EPSBoundingBoxState get 1 index lt {
exch EPSBoundingBoxParse
{
//systemdict /EPSCrop known {
EPSBoundingBoxCrop
} {
//systemdict /EPSFitPage known {
EPSBoundingBoxFitPage
} {
% Warn if some of the EPS file will be clipped
clippath pathbbox newpath
{ % context for exit
5 -1 roll lt { 6 { pop } repeat //true exit } if
4 -1 roll lt { 4 { pop } repeat //true exit } if
3 -1 roll gt { 2 { pop } repeat //true exit } if
exch gt { //true exit } if
//false exit
} loop
QUIET not and /EPSBoundingBoxState .systemvar 1 and 1 eq and {
(\n **** Warning: Some of the BoundingBox for the EPS file will be clipped.) =
( Use -dEPSCrop or -dEPSFitPage to avoid clipping.\n) =
flush
1 add
} if
} ifelse
} ifelse
EPSBoundingBoxSetState
} {
pop % state
} ifelse
} {
pop pop
} ifelse
} bind executeonly odef
/ProcessEPSComment { % file comment -- file comment
/EPSBoundingBoxState .systemvar 3 lt {
dup
(%%BoundingBox:) anchorsearch {
pop
EPSDEBUG { (gs_epsf.ps: found %%BoundingBox\n) print flush } if
1 EPSBoundingBoxProcess
} {
(%%HiResBoundingBox:) anchorsearch {
pop
EPSDEBUG { (gs_epsf.ps: found %%HiResBoundingBox\n) print flush } if
3 EPSBoundingBoxProcess
} {
pop % Not interested in this DSC comment
} ifelse
} ifelse
} if
/EPSBoundingBoxState .systemvar 5 lt {
dup (%%DocumentCustomColors:) anchorsearch {
pop
[ exch
{ {
token not { exit } if
dup type /stringtype ne { stop } if
dup (atend) eq { stop } if
exch
} loop
{
counttomark 2 add index
dup (123) .peekstring not { stop } if
(%%+) eq {
dup (123) readstring pop pop
256 string readline pop
cvx exec
} {
pop exit
} ifelse
} loop
} stopped {
cleartomark
} {
counttomark 0 gt {
currentpagedevice /MaxSeparations get 4 gt {
] << /SeparationColorNames 3 -1 roll >> setpagedevice
} {
cleartomark
} ifelse
} {
cleartomark
} ifelse
} ifelse
} {
(%%EndComments) anchorsearch {
pop pop
% Ignore any following comments
5 EPSBoundingBoxSetState
} {
pop
} ifelse
} ifelse
} if
} bind executeonly def
% Install EPS handler for DSC comments, which we do later
/EPSBoundingBoxInit {
systemdict /NOEPS known not {
% Merge ProcessEPSComment with existing handler
//ProcessEPSComment /exec load
currentuserparams /ProcessDSCComment get
dup //null eq {pop {pop pop}} if /exec load
4 array astore cvx readonly
<< /ProcessDSCComment 3 -1 roll >> setuserparams
} if
} bind executeonly odef
/.runNoEPS /run load def
/.runEPS { % file OR string --
/runEPS_save save def
/runEPS_dict_count countdictstack def
/runEPS_op_count count 2 sub def
/runEPS_page_count currentpagedevice /PageCount get def
0 EPSBoundingBoxSetState
//.runNoEPS
currentpagedevice /PageCount get runEPS_page_count sub 0 eq
{ /showpage load exec } if
count runEPS_op_count sub {pop} repeat
countdictstack runEPS_dict_count sub {end} repeat
runEPS_save restore
} bind executeonly odef
/run { % file OR string --
dup type /filetype ne { (r) file } if
dup (%!PS-Adobe-) .peekstring {
(%!PS-Adobe-) eq {
dup (%!PS-Adobe-X.X EPSF-X.X) .peekstring {
(EPSF) search {
pop pop pop
EPSDEBUG {(runEPS: Found EPS\n) print flush} if
systemdict /NOEPS known {
cvx //.runNoEPS
} {
cvx .runEPS
} ifelse
} {
EPSDEBUG {(runEPS: Normal DSC\n) print flush} if
pop
cvx //.runNoEPS
} ifelse
} {
EPSDEBUG {(runEPS: Short DSC\n) print flush} if
pop
cvx //.runNoEPS
} ifelse
} {
EPSDEBUG {(runEPS: Not DSC\n) print flush} if
cvx //.runNoEPS
} ifelse
} {
EPSDEBUG {(runEPS: Short non-DSC\n) print flush} if
pop
cvx //.runNoEPS
} ifelse
} bind odef
% Handle DOS EPS files.
/.runnoepsf /run load def
/.epsfheader <C5D0D3C6> def
/run
{ dup type /filetype ne { (r) file } if
% Check for MS-DOS EPSF file (see Red Book p. 729).
dup ( ) .peekstring
{ .epsfheader eq { dup ( ) readstring exch pop } { //false } ifelse }
{ pop //false }
ifelse
% Stack: file true/false
{ % This block is executed if the file is MS-DOS EPSF.
% Build up the little-endian byte offset and length.
2
{ 1 0 4
{ 2 index read not { pop exit } if % if EOF, let error happen
2 index mul add exch 256 mul exch
}
repeat exch pop exch
}
repeat
% Stack: offset length file
% Use flushfile to skip quickly to the start of the
% PostScript section.
dup 4 -1 roll 12 sub () /SubFileDecode filter flushfile
% Now interpret the PostScript.
exch () /SubFileDecode filter cvx run
}
{ //.runnoepsf
}
ifelse
} odef
% rebind .runstdin to use redefined run
userdict begin
/.runstdin {
{ (%stdin) run } execute0
} bind def
end
% undefine things defined in this file and not referenced elsewhere
[
/.runNoEPS
/.runnoepsf
/.runEPS
/EPSBoundingBoxSetState
/EPSBoundingBoxCrop
/EPSBoundingBoxFitPage
/EPSBoundingBoxParse
/EPSBoundingBoxProcess
/ProcessEPSComment
]
{currentdict exch .forceundef} forall
Mini Shell