From cccb1eee934c002f9440bc0da288bfd37115e88e Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Mon, 16 Sep 2024 16:44:57 +0100
Subject: [PATCH] Artefact fix

---
 cpdfdraw.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cpdfdraw.ml b/cpdfdraw.ml
index 87380c8..edf51ca 100644
--- a/cpdfdraw.ml
+++ b/cpdfdraw.ml
@@ -539,7 +539,7 @@ let draw_single ~struct_tree ~fast ~underneath ~filename ~bates ~batespad range
     map3
       (fun n p ops ->
         if not (mem n range) then p else
-          let ops = if struct_tree then add_artifacts ops else ops in
+          let ops = if struct_tree && !do_add_artifacts then add_artifacts ops else ops in
           let page = {p with Pdfpage.resources = update_resources pdf p.Pdfpage.resources} in
             (if underneath then Pdfpage.prepend_operators else Pdfpage.postpend_operators) pdf ops ~fast page)
       (ilist 1 endpage)