Blob


1 /Page null def
2 /Page# 0 def
3 /PDFSave null def
4 /DSCPageCount 0 def
5 /DoPDFPage {dup /Page# exch store pdfgetpage pdfshowpage } def
7 /pdfshowpage_mysetpage { % <pagedict> pdfshowpage_mysetpage <pagedict>
8 dup /CropBox pget {
9 boxrect
10 2 array astore /PageSize exch 4 2 roll
11 4 index /Rotate pget {
12 dup 0 lt {360 add} if 90 idiv {exch neg} repeat
13 } if
14 exch neg exch 2 array astore /PageOffset exch
15 << 5 1 roll >> setpagedevice
16 } if
17 } bind def
19 runpdfbegin