fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Clipping for -twoup-stack

This commit is contained in:
John Whitington 2015-06-03 17:30:59 +01:00
parent d81c17b6c5
commit 08f7e14fab
1 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
cpdf.ml
View File

@ -2769,13 +2769,24 @@ let twoup_pages_stack pdf = function
Pdf.remove_dict_entry h.Pdfpage.rest "/CropBox" Pdf.remove_dict_entry h.Pdfpage.rest "/CropBox"
in in
let content' = let content' =
let transform_stream contents transform = let transform_stream clipbox contents transform =
let clipops =
let minx, miny, maxx, maxy = Pdf.parse_rectangle clipbox in
[Pdfops.Op_re (minx, miny, maxx -. minx, maxy -. miny);
Pdfops.Op_n;
Pdfops.Op_W]
in
let ops = Pdfops.parse_operators pdf resources contents in let ops = Pdfops.parse_operators pdf resources contents in
Pdfops.stream_of_ops Pdfops.stream_of_ops
([Pdfops.Op_q] @ [Pdfops.Op_cm transform] @ ops @ [Pdfops.Op_Q]) ([Pdfops.Op_q] @ [Pdfops.Op_cm transform] @ clipops @ ops @ [Pdfops.Op_Q])
in in
map2 map2
(fun p -> transform_stream p.Pdfpage.content) (fun p ->
transform_stream
(match Pdf.lookup_direct pdf "/CropBox" p.Pdfpage.rest with
None -> p.Pdfpage.mediabox
| Some box -> box)
p.Pdfpage.content)
pages pages
(take (twoup_stack_transforms h.Pdfpage.mediabox) (length pages)) (take (twoup_stack_transforms h.Pdfpage.mediabox) (length pages))
in in