summaryrefslogtreecommitdiffstats
path: root/src/cmd/page/pdfprolog.c
diff options
context:
space:
mode:
authorrsc <devnull@localhost>2007-03-26 20:55:26 +0000
committerrsc <devnull@localhost>2007-03-26 20:55:26 +0000
commit05a4d855f167ae2d0d2c0ba0e386d933172b71ea (patch)
tree8a1c64cf67479d8cab98b70fd25a12929f566634 /src/cmd/page/pdfprolog.c
parent6c4c5c5b959ec8a2e85510bdf85339582f638f36 (diff)
downloadplan9port-05a4d855f167ae2d0d2c0ba0e386d933172b71ea.tar.gz
plan9port-05a4d855f167ae2d0d2c0ba0e386d933172b71ea.zip
add page (Kris Maglione)
Diffstat (limited to 'src/cmd/page/pdfprolog.c')
-rw-r--r--src/cmd/page/pdfprolog.c19
1 files changed, 5 insertions, 14 deletions
diff --git a/src/cmd/page/pdfprolog.c b/src/cmd/page/pdfprolog.c
index 8493e6d2..de51c062 100644
--- a/src/cmd/page/pdfprolog.c
+++ b/src/cmd/page/pdfprolog.c
@@ -2,28 +2,19 @@
"/Page# 0 def\n"
"/PDFSave null def\n"
"/DSCPageCount 0 def\n"
-"/DoPDFPage {dup /Page# exch store pdfgetpage mypdfshowpage } 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"
-" neg exch neg exch 2 array astore /PageOffset exch\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"
-"/mypdfshowpage % <pagedict> pdfshowpage -\n"
-" { dup /Page exch store\n"
-" pdfshowpage_init \n"
-" pdfshowpage_setpage \n"
-" pdfshowpage_mysetpage\n"
-" save /PDFSave exch store\n"
-" (before exec) VMDEBUG\n"
-" pdfshowpage_finish\n"
-" (after exec) VMDEBUG\n"
-" PDFSave restore\n"
-" } bind def\n"
-"\n"
"GS_PDF_ProcSet begin\n"
"pdfdict begin\n"