aboutsummaryrefslogtreecommitdiff
path: root/src/cmd/page/pdfprolog.c
blob: 3b6cbcd754b2c9579d5c69532bf3e494ad2f6574 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
"/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"
"runpdfbegin\n"