From a0446f7f1cd78ecac1e715556e979f221a1faa38 Mon Sep 17 00:00:00 2001 From: John Whitington Date: Thu, 24 Nov 2016 19:10:53 +0000 Subject: [PATCH] more --- cpdf.ml | 5 ++--- cpdfcommand.ml | 2 +- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/cpdf.ml b/cpdf.ml index 937bf12..51e1001 100644 --- a/cpdf.ml +++ b/cpdf.ml @@ -2385,7 +2385,7 @@ let equalize_pages under over = under, over let combine_pages (fast : bool) under over scaletofit swap equalize = - let debug_combine_pages = true in (* DEBUG *) + let debug_combine_pages = false in (* DEBUG *) let debug_pdf pdf n = if debug_combine_pages then begin @@ -2879,8 +2879,7 @@ let copy_annotations_page topdf frompdf frompage topage = in List.iter (function - (* FIXME: We assume they are indirects. Must also do direct, though - rare.*) + (* FIXME: We assume they are indirects. Must also do direct, though rare.*) Pdf.Indirect x -> (*Printf.printf "Copying annotation %s which is\n%s\n" (Pdfwrite.string_of_pdf (Pdf.Indirect x)) diff --git a/cpdfcommand.ml b/cpdfcommand.ml index 6b26957..c67ce45 100644 --- a/cpdfcommand.ml +++ b/cpdfcommand.ml @@ -2642,7 +2642,7 @@ let rec image_resolution_page pdf page pagenum dpi (images : (int * string * xob Pdfpage.rotate = Pdfpage.Rotate0; Pdfpage.rest = Pdf.Dictionary []} in - let newpdf = Pdfpage.change_pages true pdf [page] in + let newpdf = Pdfpage.change_pages false pdf [page] in image_resolution newpdf [pagenum] dpi | (pagenum, name, Image (w, h)) -> let lx = Pdfunits.convert 0. Pdfunits.PdfPoint Pdfunits.Inch (distance_between o x)