From 05a4d855f167ae2d0d2c0ba0e386d933172b71ea Mon Sep 17 00:00:00 2001
From: rsc <devnull@localhost>
Date: Mon, 26 Mar 2007 20:55:26 +0000
Subject: add page (Kris Maglione)

---
 src/cmd/page/pdfprolog.c | 19 +++++--------------
 1 file changed, 5 insertions(+), 14 deletions(-)

(limited to 'src/cmd/page/pdfprolog.c')

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"
-- 
cgit v1.2.3