tpdfprolog.c - plan9port - [fork] Plan 9 from user space | |
git clone git://src.adamsgaard.dk/plan9port | |
Log | |
Files | |
Refs | |
README | |
LICENSE | |
--- | |
tpdfprolog.c (572B) | |
--- | |
1 "/Page null def\n" | |
2 "/Page# 0 def\n" | |
3 "/PDFSave null def\n" | |
4 "/DSCPageCount 0 def\n" | |
5 "/DoPDFPage {dup /Page# exch store pdfgetpage pdfshowpage } def\n" | |
6 "\n" | |
7 "/pdfshowpage_mysetpage { % <pagedict> pdfshowpage_mysetpage <pag… | |
8 " dup /CropBox pget {\n" | |
9 " boxrect\n" | |
10 " 2 array astore /PageSize exch 4 2 roll\n" | |
11 " 4 index /Rotate pget {\n" | |
12 " dup 0 lt {360 add} if 90 idiv {exch neg} repeat\n" | |
13 " } if\n" | |
14 " exch neg exch 2 array astore /PageOffset exch\n" | |
15 " << 5 1 roll >> setpagedevice\n" | |
16 " } if\n" | |
17 "} bind def\n" | |
18 "\n" | |
19 "runpdfbegin\n" |