Final annotation matterhorns

This commit is contained in:
John Whitington 2024-06-21 14:26:08 +01:00
parent fb526d256c
commit ba139b44e7
1 changed files with 6 additions and 1 deletions

View File

@ -719,7 +719,12 @@ let matterhorn_28_016 _ _ pdf =
covered_elsewhere () covered_elsewhere ()
(* A PrinterMark annotation is included in the logical structure. *) (* 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. (* The appearance stream of a PrinterMark annotation is not marked as Artifact.
*) *)