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