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

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


"/Page null def\n"
"/Page# 0 def\n"
"/PDFSave null def\n"
"/DSCPageCount 0 def\n"
"/DoPDFPage {dup /Page# exch store pdfgetpage pdfshowpage } def\n"
"\n"
"/pdfshowpage_mysetpage {	% <pagedict> pdfshowpage_mysetpage <pagedict>\n"
"  dup /CropBox pget {\n"
"      boxrect\n"
"      2 array astore /PageSize exch 4 2 roll\n"
"      4 index /Rotate pget {\n"
"        dup 0 lt {360 add} if 90 idiv {exch neg} repeat\n"
"      } if\n"
"      exch neg exch 2 array astore /PageOffset exch\n"
"      << 5 1 roll >> setpagedevice\n"
"  } if\n"
"} bind def\n"
"\n"
"GS_PDF_ProcSet begin\n"
"pdfdict begin\n"

(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.