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

Fix clipping

This commit is contained in:
John Whitington 2015-06-04 15:07:33 +01:00
parent 740d671261
commit b199297040
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
cpdf.ml
View File

@ -2722,8 +2722,8 @@ let twoup_pages pdf = function
let clipops = let clipops =
let minx, miny, maxx, maxy = Pdf.parse_rectangle clipbox in let minx, miny, maxx, maxy = Pdf.parse_rectangle clipbox in
[Pdfops.Op_re (minx, miny, maxx -. minx, maxy -. miny); [Pdfops.Op_re (minx, miny, maxx -. minx, maxy -. miny);
Pdfops.Op_n; Pdfops.Op_W;
Pdfops.Op_W] Pdfops.Op_n]
in in
let ops = Pdfops.parse_operators pdf resources' contents in let ops = Pdfops.parse_operators pdf resources' contents in
(* Need protect_removeme here? especially new, Q-adding protect? *) (* Need protect_removeme here? especially new, Q-adding protect? *)
@ -2776,8 +2776,8 @@ let twoup_pages_stack pdf = function
let clipops = let clipops =
let minx, miny, maxx, maxy = Pdf.parse_rectangle clipbox in let minx, miny, maxx, maxy = Pdf.parse_rectangle clipbox in
[Pdfops.Op_re (minx, miny, maxx -. minx, maxy -. miny); [Pdfops.Op_re (minx, miny, maxx -. minx, maxy -. miny);
Pdfops.Op_n; Pdfops.Op_W;
Pdfops.Op_W] Pdfops.Op_n]
in 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