From 24c02865d8fcc97d1fb5cb9281810d8074aa5eb1 Mon Sep 17 00:00:00 2001 From: rsc Date: Tue, 4 Jan 2005 21:23:50 +0000 Subject: placeholder; does not yet build --- src/cmd/page/pdfprolog.c | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 src/cmd/page/pdfprolog.c (limited to 'src/cmd/page/pdfprolog.c') diff --git a/src/cmd/page/pdfprolog.c b/src/cmd/page/pdfprolog.c new file mode 100644 index 00000000..8493e6d2 --- /dev/null +++ b/src/cmd/page/pdfprolog.c @@ -0,0 +1,29 @@ +"/Page null def\n" +"/Page# 0 def\n" +"/PDFSave null def\n" +"/DSCPageCount 0 def\n" +"/DoPDFPage {dup /Page# exch store pdfgetpage mypdfshowpage } def\n" +"\n" +"/pdfshowpage_mysetpage { % pdfshowpage_mysetpage \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" +" << 5 1 roll >> setpagedevice\n" +" } if\n" +"} bind def\n" +"\n" +"/mypdfshowpage % 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