1 /Page null def
2 /Page# 0 def
3 /PDFSave null def
4 /DSCPageCount 0 def
5 /DoPDFPage {dup /Page# exch store pdfgetpage mypdfshowpage } 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       neg exch neg exch 2 array astore /PageOffset exch
12       << 5 1 roll >> setpagedevice
13   } if
14 } bind def
15 
16 /mypdfshowpage		% <pagedict> pdfshowpage -
17  { dup /Page exch store
18    pdfshowpage_init 
19    pdfshowpage_setpage 
20    pdfshowpage_mysetpage
21    save /PDFSave exch store
22    (before exec) VMDEBUG
23      pdfshowpage_finish
24    (after exec) VMDEBUG
25    PDFSave restore
26  } bind def
27 
28 GS_PDF_ProcSet begin
29 pdfdict begin