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

Removing debug printing

This commit is contained in:
John Whitington 2024-02-01 19:31:39 +00:00
parent ed30ea40c0
commit 95f6a1a248
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
cpdfimage.ml
View File

@ -654,16 +654,15 @@ let lossless_resample pdf ~pixel_threshold ~length_threshold ~factor ~interpolat
if !debug_image_processing then Printf.printf "no size reduction\n%!" if !debug_image_processing then Printf.printf "no size reduction\n%!"
end; end;
close_in result close_in result
end(*; end;
remove out; remove out;
remove out2 remove out2
remove out3*)
with _ -> () (* FIXME Remove *) with _ -> () (* FIXME Remove *)
let lossless_resample_target_dpi objnum pdf ~pixel_threshold ~length_threshold ~factor ~target_dpi_info ~interpolate ~path_to_convert s dict reference = let lossless_resample_target_dpi objnum pdf ~pixel_threshold ~length_threshold ~factor ~target_dpi_info ~interpolate ~path_to_convert s dict reference =
Printf.printf "lossless_resample_target_dpi\n"; (*Printf.printf "lossless_resample_target_dpi\n";*)
let real_factor = factor /. Hashtbl.find target_dpi_info objnum *. 100. in let real_factor = factor /. Hashtbl.find target_dpi_info objnum *. 100. in
Printf.printf "real_factor = %f\n" real_factor; (*Printf.printf "real_factor = %f\n" real_factor;*)
if real_factor < 100. then if real_factor < 100. then
lossless_resample pdf ~pixel_threshold ~length_threshold ~factor:real_factor ~interpolate ~path_to_convert s dict reference lossless_resample pdf ~pixel_threshold ~length_threshold ~factor:real_factor ~interpolate ~path_to_convert s dict reference
@ -826,10 +825,8 @@ let process
let needed = keep (fun (_, _, _, _, wdpi, hdpi, objnum) -> fmin wdpi hdpi > dpi_threshold) heads in let needed = keep (fun (_, _, _, _, wdpi, hdpi, objnum) -> fmin wdpi hdpi > dpi_threshold) heads in
(*iter (fun (_, _, _, _, wdpi, hdpi, objnum) -> Printf.printf "keep %f %f %i\n" wdpi hdpi objnum) needed;*) (*iter (fun (_, _, _, _, wdpi, hdpi, objnum) -> Printf.printf "keep %f %f %i\n" wdpi hdpi objnum) needed;*)
map (fun (_, _, _, _, _, _, objnum) -> objnum) needed, map (fun (_, _, _, _, _, _, objnum) -> objnum) needed,
let r =
map (fun (_, _, _, _, wdpi, hdpi, objnum) -> (objnum, fmin wdpi hdpi)) heads map (fun (_, _, _, _, wdpi, hdpi, objnum) -> (objnum, fmin wdpi hdpi)) heads
in (*iter (fun (x, d) -> Printf.printf "obj %i at %f dpi\n" x d) r; r*)
iter (fun (x, d) -> Printf.printf "obj %i at %f dpi\n" x d) r; r
in in
hashset_of_list objnums, hashtable_of_dictionary dpi hashset_of_list objnums, hashtable_of_dictionary dpi
in in
@ -863,7 +860,6 @@ let process
| _ -> () | _ -> ()
end end
| Some (Pdf.Name "/Image"), _, _, _ -> | Some (Pdf.Name "/Image"), _, _, _ ->
Printf.printf "Lossless resample: factor = %f\n" factor;
if qlossless < 101. then if qlossless < 101. then
begin begin
if !debug_image_processing then Printf.printf "(%i/%i) object %i (lossless)... %!" !ndone nobjects objnum; if !debug_image_processing then Printf.printf "(%i/%i) object %i (lossless)... %!" !ndone nobjects objnum;