diff options
| author | Russell Lang <gsview@ghostgum.com.au> | 2002-11-21 09:40:06 +0000 |
|---|---|---|
| committer | Russell Lang <gsview@ghostgum.com.au> | 2002-11-21 09:40:06 +0000 |
| commit | 41e9174ceb2078664326a66995949d6c01d52db3 (patch) | |
| tree | 77a7ea3baa3420048993dd771c22b8aa2825b25b | |
| parent | 0702c819011dd09add969201f711c0861c8b5b3f (diff) | |
When processing EPS files, empty the path after checking theghostscript-8.01
page size.
git-svn-id: http://svn.ghostscript.com/ghostscript/trunk@3364 a1074d23-0009-0410-80fe-cf8c14f379e6
| -rw-r--r-- | gs/lib/gs_epsf.ps | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gs/lib/gs_epsf.ps b/gs/lib/gs_epsf.ps index 521f2b0ce..fc168ba2c 100644 --- a/gs/lib/gs_epsf.ps +++ b/gs/lib/gs_epsf.ps @@ -50,7 +50,7 @@ % Rescale and translate to fit the BoundingBox on the page /EPSBoundingBoxFitPage { % llx lly urx ury -- DEBUG { (gs_epsf.ps: Rescaling EPS to fit page\n) print flush } if - clippath pathbbox + clippath pathbbox newpath % translate to new origin at lower left of clippath 3 index 3 index translate % calculate scale to fit smaller of width or height @@ -87,7 +87,7 @@ EPSBoundingBoxFitPage } { % Warn if some of the EPS file will be clipped - clippath pathbbox + 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 |