Home Explore Help
Register Sign In
RISCI_ATOM
/
harvey
mirror of https://github.com/Harvey-OS/harvey.git
1
0
Fork 0
Files Issues 0 Wiki
Tree: 83d6593e6c
Branches Tags
harvey
/
sys
/
src
/
cmd
/
page
/
pdfprolog.c

pdfprolog.c 599 B
History Raw

1234567891011121314151617181920 
  1. "/Page null def\n"
    2. 

  2. "/Page# 0 def\n"
    3. 

  3. "/PDFSave null def\n"
    4. 

  4. "/DSCPageCount 0 def\n"
    5. 

  5. "/DoPDFPage {dup /Page# exch store pdfgetpage pdfshowpage } def\n"
    6. 

  6. "\n"
    7. 

  7. "/pdfshowpage_mysetpage {	% <pagedict> pdfshowpage_mysetpage <pagedict>\n"
    8. 

  8. "  dup /CropBox pget {\n"
    9. 

  9. "      boxrect\n"
    10. 

  10. "      2 array astore /PageSize exch 4 2 roll\n"
    11. 

  11. "      4 index /Rotate pget {\n"
    12. 

  12. "        dup 0 lt {360 add} if 90 idiv {exch neg} repeat\n"
    13. 

  13. "      } if\n"
    14. 

  14. "      exch neg exch 2 array astore /PageOffset exch\n"
    15. 

  15. "      << 5 1 roll >> setpagedevice\n"
    16. 

  16. "  } if\n"
    17. 

  17. "} bind def\n"
    18. 

  18. "\n"
    19. 

  19. "GS_PDF_ProcSet begin\n"
    20. 

  20. "pdfdict begin\n"
    21.