diff options
| author | rsc <devnull@localhost> | 2007-03-26 20:55:26 +0000 |
|---|---|---|
| committer | rsc <devnull@localhost> | 2007-03-26 20:55:26 +0000 |
| commit | 05a4d855f167ae2d0d2c0ba0e386d933172b71ea (patch) | |
| tree | 8a1c64cf67479d8cab98b70fd25a12929f566634 /src/cmd/page/pdfprolog.ps | |
| parent | 6c4c5c5b959ec8a2e85510bdf85339582f638f36 (diff) | |
| download | plan9port-05a4d855f167ae2d0d2c0ba0e386d933172b71ea.tar.gz plan9port-05a4d855f167ae2d0d2c0ba0e386d933172b71ea.tar.bz2 plan9port-05a4d855f167ae2d0d2c0ba0e386d933172b71ea.zip | |
add page (Kris Maglione)
Diffstat (limited to 'src/cmd/page/pdfprolog.ps')
| -rw-r--r-- | src/cmd/page/pdfprolog.ps | 19 |
1 files changed, 5 insertions, 14 deletions
diff --git a/src/cmd/page/pdfprolog.ps b/src/cmd/page/pdfprolog.ps index c4c31c92..681e0587 100644 --- a/src/cmd/page/pdfprolog.ps +++ b/src/cmd/page/pdfprolog.ps @@ -2,28 +2,19 @@ /Page# 0 def /PDFSave null def /DSCPageCount 0 def -/DoPDFPage {dup /Page# exch store pdfgetpage mypdfshowpage } def +/DoPDFPage {dup /Page# exch store pdfgetpage pdfshowpage } 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 + 4 index /Rotate pget { + dup 0 lt {360 add} if 90 idiv {exch neg} repeat + } if + 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 |