summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/lib/opdfread.ps
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlgs/lib/opdfread.ps')
-rw-r--r--Master/tlpkg/tlgs/lib/opdfread.ps24
1 files changed, 5 insertions, 19 deletions
diff --git a/Master/tlpkg/tlgs/lib/opdfread.ps b/Master/tlpkg/tlgs/lib/opdfread.ps
index 6ef1564ea5a..ebb7caaaaca 100644
--- a/Master/tlpkg/tlgs/lib/opdfread.ps
+++ b/Master/tlpkg/tlgs/lib/opdfread.ps
@@ -742,7 +742,7 @@ currentdict end readonly def
copypage
} repeat
} if
- EPS2Write not {showpage} if
+ showpage
} if
} bind def
@@ -896,27 +896,13 @@ currentdict end readonly def
0 0 % dummy page size values if not known
}ifelse
% bw bh px0 py0 bw bh bool bw bh Width Height
- round cvi 2 index round cvi eq % bw bh px0 py0 bw bh bool bw bh Width bool
+ round cvi 2 index round cvi % bw bh px0 py0 bw bh bool bw bh Width bool
exch round cvi 3 index round cvi eq and % bw bh px0 py0 bw bh bool bw bh bool
{ % Page Size unchanged, do not emit setpagedevice
pop pop % bw bh px0 py0 bw bh bool
} {
- /MediaRequested where {
- % bw bh px0 py0 bw bh
- /MediaRequested get aload pop % bw bh px0 py0 bw bh Width Height
- round cvi 2 index round cvi eq % bw bh px0 py0 bw bh bool bw bh Width bool
- exch round cvi 3 index round cvi eq and % bw bh px0 py0 bw bh bool bw bh bool
- {pop pop false} % We already requested this media size, so don't re-request
- {true} ifelse % Media request different to last request
- } {
- true % No stored media request, so apply setpagedevice
- } ifelse
- {
- 2 array astore % bw bh px0 py0 bw bh bool []
- dup /MediaRequested exch def
- << exch /PageSize exch >> setpagedevice % bw bh px0 py0 bw bh bool
- /pagesave save def
- } if
+ 2 array astore % bw bh px0 py0 bw bh bool []
+ << exch /PageSize exch >> setpagedevice % bw bh px0 py0 bw bh bool
} ifelse
userdict /PDFR_InitialGS gstate put
setglobal % bw bh px0 py0 bw bh
@@ -985,7 +971,7 @@ currentdict end readonly def
1 index exch /Context exch put % id obj
dup /ImmediateExec true put
dup /IsPage true put
- SetPageSize {dup /Context get //SetupPageView exec} if
+ dup /Context get //SetupPageView exec
} bind def
/FontFileDaemon % <id> <obj> <font_descriptor> FontFileDaemon <id> <obj>