First successful JBIG2Lossy

This commit is contained in:
John Whitington 2024-01-11 19:36:54 +00:00
parent e0b15b9c9a
commit d4dcdd4202
1 changed files with 1 additions and 1 deletions

View File

@ -780,7 +780,7 @@ let preprocess_jbig2_lossy ~path_to_jbig2enc ~length_threshold ~pixel_threshold
{contents = {contents =
Pdf.Dictionary [("/Length", Pdf.Integer (bytes_size data)); Pdf.Dictionary [("/Length", Pdf.Integer (bytes_size data));
("/Filter", Pdf.Name "/JBIG2Decode"); ("/Filter", Pdf.Name "/JBIG2Decode");
("/JBIG2Globals", Pdf.Indirect globalobj)], ("/DecodeParms", Pdf.Dictionary [("/JBIG2Globals", Pdf.Indirect globalobj)])],
Pdf.Got data} Pdf.Got data}
in in
let dict = match Pdf.lookup_obj pdf objnum with Pdf.Stream {contents = d, _} -> d | _ -> Pdf.Dictionary [] in let dict = match Pdf.lookup_obj pdf objnum with Pdf.Stream {contents = d, _} -> d | _ -> Pdf.Dictionary [] in