sys/src/cmd/page/pdfprolog.ps

   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 GS_PDF_ProcSet begin
  20 pdfdict begin