From b199297040a73d210cae4db155b3837231ff03a1 Mon Sep 17 00:00:00 2001 From: John Whitington Date: Thu, 4 Jun 2015 15:07:33 +0100 Subject: [PATCH] Fix clipping --- cpdf.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/cpdf.ml b/cpdf.ml index 6d7d499..a1de133 100644 --- a/cpdf.ml +++ b/cpdf.ml @@ -2722,8 +2722,8 @@ let twoup_pages pdf = function 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] + Pdfops.Op_W; + Pdfops.Op_n] in let ops = Pdfops.parse_operators pdf resources' contents in (* Need protect_removeme here? especially new, Q-adding protect? *) @@ -2776,8 +2776,8 @@ let twoup_pages_stack pdf = function 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] + Pdfops.Op_W; + Pdfops.Op_n] in let ops = Pdfops.parse_operators pdf resources contents in Pdfops.stream_of_ops