tpdfprolog.ps - plan9port - [fork] Plan 9 from user space
  HTML git clone git://src.adamsgaard.dk/plan9port
   DIR Log
   DIR Files
   DIR Refs
   DIR README
   DIR LICENSE
       ---
       tpdfprolog.ps (496B)
       ---
            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 runpdfbegin