Plan 9 from Bell Labs’s /n/sources/contrib/lejatorn/page/pdfprolog.ps

Copyright © 2009 Alcatel-Lucent.
Distributed under the Lucent Public License version 1.02.
Download the Plan 9 distribution.


/Page null def
/Page# 0 def
/PDFSave null def
/DSCPageCount 0 def
/DoPDFPage {dup /Page# exch store pdfgetpage pdfshowpage } def

/pdfshowpage_mysetpage {	% <pagedict> pdfshowpage_mysetpage <pagedict>
  dup /CropBox pget {
      boxrect
      2 array astore /PageSize exch 4 2 roll
      4 index /Rotate pget {
        dup 0 lt {360 add} if 90 idiv {exch neg} repeat
      } if
      exch neg exch 2 array astore /PageOffset exch
      << 5 1 roll >> setpagedevice
  } if
} bind def

GS_PDF_ProcSet begin
pdfdict begin

(This is a user-contributed directory and
should not be interpreted as statement by Alcatel-Lucent.)

Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2009 Alcatel-Lucent. All Rights Reserved.
Comments to webmaster@plan9.bell-labs.com.