o5r/plan9port
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add page (Kris Maglione)

Browse source
This commit is contained in:
rsc 2007-03-26 20:55:26 +00:00
parent 6c4c5c5b95
commit 05a4d855f1
15 changed files with 448 additions and 480 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/cmd/page/pdfprolog.c
View file

@ -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"