From ba139b44e77373845b6e06e6cb423dbdb37771b0 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Fri, 21 Jun 2024 14:26:08 +0100
Subject: [PATCH] Final annotation matterhorns

---
 cpdfua.ml | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/cpdfua.ml b/cpdfua.ml
index 6711f7b..9a9da02 100644
--- a/cpdfua.ml
+++ b/cpdfua.ml
@@ -719,7 +719,12 @@ let matterhorn_28_016 _ _ pdf =
   covered_elsewhere ()
 
 (* A PrinterMark annotation is included in the logical structure. *)
-let matterhorn_28_017 _ _ pdf = todo ()
+let matterhorn_28_017 _ _ pdf =
+  Pdf.objiter
+    (fun _ o -> match Pdf.lookup_direct pdf "/Subtype" o, Pdf.lookup_direct pdf "/StructParent" o with
+     | Some (Pdf.Name "/PrinterMark"), Some _ -> merror ()
+     | _ -> ())
+    pdf
 
 (* The appearance stream of a PrinterMark annotation is not marked as Artifact.
  *)