More -process-images-info work

This commit is contained in:
John Whitington 2023-12-29 22:19:06 +00:00
parent 70e9092e01
commit 96a9142542
1 changed files with 1 additions and 0 deletions

View File

@ -566,6 +566,7 @@ let lossless_out pdf ~pixel_threshold ~length_threshold extension s dict referen
in in
print_string (Pdfwrite.string_of_pdf dict); print_string (Pdfwrite.string_of_pdf dict);
print_string (Printf.sprintf "%s (%s) [%s]\n" colspace bpc filter);*) print_string (Printf.sprintf "%s (%s) [%s]\n" colspace bpc filter);*)
if !debug_image_processing then Printf.printf "not suitable\n%!";
None (* an image we cannot or do not handle *) None (* an image we cannot or do not handle *)
let lossless_to_jpeg pdf ~pixel_threshold ~length_threshold ~percentage_threshold ~qlossless ~path_to_convert s dict reference = let lossless_to_jpeg pdf ~pixel_threshold ~length_threshold ~percentage_threshold ~qlossless ~path_to_convert s dict reference =