From 8e7c467d39d2d3c4a83c0f5503babc374cd98c4b Mon Sep 17 00:00:00 2001 From: John Whitington Date: Fri, 11 Apr 2025 14:45:39 +0100 Subject: [PATCH] G4 work --- cpdfimage.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/cpdfimage.ml b/cpdfimage.ml index a3d2905..2a36b14 100644 --- a/cpdfimage.ml +++ b/cpdfimage.ml @@ -883,7 +883,7 @@ let recompress_1bpp_ccittg4_lossless ~pixel_threshold ~length_threshold pdf s di let restore () = reference := old in let w = match Pdf.lookup_direct pdf "/Width" dict with Some (Pdf.Integer i) -> i | _ -> error "bad width" in let h = match Pdf.lookup_direct pdf "/Height" dict with Some (Pdf.Integer i) -> i | _ -> error "bad height" in - if w <> 25 || h <> 6 then (if !debug_image_processing then Printf.printf "Debug skipping...\n%!") else + (*if w <> 25 || h <> 6 then (if !debug_image_processing then Printf.printf "Debug skipping...\n%!") else*) (*if w * h < pixel_threshold then (if !debug_image_processing then Printf.printf "pixel threshold not met\n%!") else*) let size = match Pdf.lookup_direct pdf "/Length" dict with Some (Pdf.Integer i) -> i | _ -> 0 in (*if size < length_threshold then (if !debug_image_processing then Printf.printf "length threshold not met\n%!") else*)