1*e94a8e9bSDavid du Colombier "/Page null def\n" 2*e94a8e9bSDavid du Colombier "/Page# 0 def\n" 3*e94a8e9bSDavid du Colombier "/PDFSave null def\n" 4*e94a8e9bSDavid du Colombier "/DSCPageCount 0 def\n" 5*e94a8e9bSDavid du Colombier "/DoPDFPage {dup /Page# exch store pdfgetpage pdfshowpage } def\n" 6*e94a8e9bSDavid du Colombier "\n" 7*e94a8e9bSDavid du Colombier "/pdfshowpage_mysetpage { % <pagedict> pdfshowpage_mysetpage <pagedict>\n" 8*e94a8e9bSDavid du Colombier " dup /CropBox pget {\n" 9*e94a8e9bSDavid du Colombier " boxrect\n" 10*e94a8e9bSDavid du Colombier " 2 array astore /PageSize exch 4 2 roll\n" 11*e94a8e9bSDavid du Colombier " 4 index /Rotate pget {\n" 12*e94a8e9bSDavid du Colombier " dup 0 lt {360 add} if 90 idiv {exch neg} repeat\n" 13*e94a8e9bSDavid du Colombier " } if\n" 14*e94a8e9bSDavid du Colombier " exch neg exch 2 array astore /PageOffset exch\n" 15*e94a8e9bSDavid du Colombier " << 5 1 roll >> setpagedevice\n" 16*e94a8e9bSDavid du Colombier " } if\n" 17*e94a8e9bSDavid du Colombier "} bind def\n" 18*e94a8e9bSDavid du Colombier "\n" 19*e94a8e9bSDavid du Colombier "GS_PDF_ProcSet begin\n" 20*e94a8e9bSDavid du Colombier "pdfdict begin\n" 21