From 0416c376ab30001f7f650b5538df47c34b850d9e Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Wed, 2 Oct 2024 13:54:23 +0100
Subject: [PATCH] Artifacting

---
 cpdftype.ml | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/cpdftype.ml b/cpdftype.ml
index ed8cdc6..cdad994 100644
--- a/cpdftype.ml
+++ b/cpdftype.ml
@@ -245,8 +245,9 @@ let typeset ~process_struct_tree lmargin rmargin tmargin bmargin papersize pdf i
   let thisdestrectangles = ref [] in
   let pages = ref [] in
   let write_page () =
+    let ops = if process_struct_tree then add_artifacts (rev !ops) else rev !ops in
     let page =
-      {Pdfpage.content = if !ops = [] then [] else [Pdfops.stream_of_ops (rev !ops)];
+      {Pdfpage.content = if ops = [] then [] else [Pdfops.stream_of_ops ops];
        Pdfpage.mediabox = Pdfpage.rectangle_of_paper papersize;
        Pdfpage.resources = make_resources !thispagefontnums;
        Pdfpage.rotate = Pdfpage.Rotate0;
@@ -323,5 +324,3 @@ let typeset ~process_struct_tree lmargin rmargin tmargin bmargin papersize pdf i
     iter typeset_element i;
     write_page ();
     rev !pages
-
-