tpdfprolog.c - 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.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 <pagedict>\n"
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"