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 =
Pdf.Dictionary [("/Length", Pdf.Integer (bytes_size data));
("/Filter", Pdf.Name "/JBIG2Decode");
("/JBIG2Globals", Pdf.Indirect globalobj)],
("/DecodeParms", Pdf.Dictionary [("/JBIG2Globals", Pdf.Indirect globalobj)])],
Pdf.Got data}
in
let dict = match Pdf.lookup_obj pdf objnum with Pdf.Stream {contents = d, _} -> d | _ -> Pdf.Dictionary [] in