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

More -process-images

This commit is contained in:
John Whitington 2023-12-31 16:22:22 +00:00
parent 74c1c63cec
commit e31f3c2562
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
cpdfimage.ml
View File

@ -5,7 +5,7 @@ open Cpdferror
let debug_image_processing = ref false let debug_image_processing = ref false
let remove x = let remove x =
(*try Sys.remove x with _ ->*) () try Sys.remove x with _ -> ()
let pnm_white ch = output_char ch ' ' let pnm_white ch = output_char ch ' '
let pnm_newline ch = output_char ch '\n' let pnm_newline ch = output_char ch '\n'
@ -627,7 +627,7 @@ let lossless_resample pdf ~pixel_threshold ~length_threshold ~percentage_thresho
[out] @ [out] @
["PNG24:" ^ out2])) ["PNG24:" ^ out2]))
in in
(*Printf.printf "%S\n" command;*) Sys.command command Printf.printf "%S\n" command; Sys.command command
in in
if retcode = 0 then if retcode = 0 then
begin begin