CCITT G3 scaffolding

This commit is contained in:
John Whitington 2025-01-10 15:54:45 +08:00
parent 0bb5f154cb
commit f056d76567

View File

@ -839,7 +839,7 @@ let recompress_1bpp_ccitt_lossless ~pixel_threshold ~length_threshold pdf s dict
restore ()
| None ->
let data = match s with Pdf.Stream {contents = _, Pdf.Got d} -> d | _ -> assert false in
let compressed = data in
let compressed = Pdfcodec.encode_ccitt w data in
let newsize = bytes_size compressed in
if newsize < size then
begin