pdfprolog.ps (496B)
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 6 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 18 19 runpdfbegin