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

more

This commit is contained in:
John Whitington 2023-03-19 19:58:15 +00:00
parent 17aa6d960f
commit 2d512cc8ed
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
cpdfpng.ml
View File

@ -47,7 +47,7 @@ let write_crc o ctype cdata =
o.output_byte d o.output_byte d
let write_chunk o ctype data = let write_chunk o ctype data =
for x = 0 to 4 do o.output_byte (int_of_char ctype.[x]) done; for x = 0 to 3 do o.output_byte (int_of_char ctype.[x]) done;
o.output_string (Bytes.unsafe_to_string data); o.output_string (Bytes.unsafe_to_string data);
write_crc o ctype (Bytes.unsafe_to_string data) write_crc o ctype (Bytes.unsafe_to_string data)
@ -137,6 +137,11 @@ let read_png i =
with with
_ -> () _ -> ()
end; end;
let r =
{width = i32toi width; height = i32toi height; idat = concat_bytes (rev !idat)} {width = i32toi width; height = i32toi height; idat = concat_bytes (rev !idat)}
in
let ch = open_out_bin "out.png" in
write_png r (Pdfio.output_of_channel ch);
r
with with
e -> raise (Pdf.PDFError (Printf.sprintf "read_png: failed on %s" (Printexc.to_string e))) e -> raise (Pdf.PDFError (Printf.sprintf "read_png: failed on %s" (Printexc.to_string e)))