From 89c5efc8cfcc2043051f9cc73e294b7001a8d4ad Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Fri, 10 Jan 2025 17:00:14 +0800
Subject: [PATCH] CCITT work

---
 cpdfimage.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/cpdfimage.ml b/cpdfimage.ml
index 968803b..e486e88 100644
--- a/cpdfimage.ml
+++ b/cpdfimage.ml
@@ -845,11 +845,11 @@ let recompress_1bpp_ccitt_lossless ~pixel_threshold ~length_threshold pdf s dict
             begin
               if !debug_image_processing then Printf.printf "1bpp to CCITT %i -> %i (%i%%)\n%!" size newsize (int_of_float (float newsize /. float size *. 100.));
               reference :=
-                (Pdf.remove_dict_entry
+                (Pdf.add_dict_entry
                 (Pdf.add_dict_entry
                   (Pdf.add_dict_entry dict "/Length" (Pdf.Integer newsize))
                    "/Filter"
-                   (Pdf.Name "/CCITTFaxDecode")) "/DecodeParms"),
+                   (Pdf.Name "/CCITTFaxDecode")) "/DecodeParms" (Pdf.Array [Pdf.Dictionary [("/K", Pdf.Integer 0); ("/Columns", Pdf.Integer w)]])),
                 Pdf.Got (compressed)
             end
            else