| /Page null def |
| /Page# 0 def |
| /PDFSave null def |
| /DSCPageCount 0 def |
| /DoPDFPage {dup /Page# exch store pdfgetpage mypdfshowpage } def |
| |
| /pdfshowpage_mysetpage { % <pagedict> pdfshowpage_mysetpage <pagedict> |
| dup /CropBox pget { |
| boxrect |
| 2 array astore /PageSize exch 4 2 roll |
| neg exch neg exch 2 array astore /PageOffset exch |
| << 5 1 roll >> setpagedevice |
| } if |
| } bind def |
| |
| /mypdfshowpage % <pagedict> pdfshowpage - |
| { dup /Page exch store |
| pdfshowpage_init |
| pdfshowpage_setpage |
| pdfshowpage_mysetpage |
| save /PDFSave exch store |
| (before exec) VMDEBUG |
| pdfshowpage_finish |
| (after exec) VMDEBUG |
| PDFSave restore |
| } bind def |
| |
| GS_PDF_ProcSet begin |
| pdfdict begin |
