From 9e6fcbd790d26b54b2ea054e651020645a42db1a Mon Sep 17 00:00:00 2001
From: rsc <devnull@localhost>
Date: Tue, 4 Jan 2005 22:31:35 +0000
Subject: forgot this

---
 src/cmd/page/pdfprolog.ps | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 src/cmd/page/pdfprolog.ps

(limited to 'src/cmd/page')

diff --git a/src/cmd/page/pdfprolog.ps b/src/cmd/page/pdfprolog.ps
new file mode 100644
index 00000000..c4c31c92
--- /dev/null
+++ b/src/cmd/page/pdfprolog.ps
@@ -0,0 +1,29 @@
+/Page null def
+/Page# 0 def
+/PDFSave null def
+/DSCPageCount 0 def
+/DoPDFPage {dup /Page# exch store pdfgetpage mypdfshowpage } def
+
+/pdfshowpage_mysetpage {	% <pagedict> pdfshowpage_mysetpage <pagedict>
+  dup /CropBox pget {
+      boxrect
+      2 array astore /PageSize exch 4 2 roll
+      neg exch neg exch 2 array astore /PageOffset exch
+      << 5 1 roll >> setpagedevice
+  } if
+} bind def
+
+/mypdfshowpage		% <pagedict> pdfshowpage -
+ { dup /Page exch store
+   pdfshowpage_init 
+   pdfshowpage_setpage 
+   pdfshowpage_mysetpage
+   save /PDFSave exch store
+   (before exec) VMDEBUG
+     pdfshowpage_finish
+   (after exec) VMDEBUG
+   PDFSave restore
+ } bind def
+
+GS_PDF_ProcSet begin
+pdfdict begin
-- 
cgit v1.2.3