mirror of
https://github.com/johnwhitington/cpdf-source.git
synced 2025-02-12 01:40:38 +01:00
CCITT G3 scaffolding
This commit is contained in:
parent
0bb5f154cb
commit
f056d76567
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user