Final annotation matterhorns
This commit is contained in:
parent
fb526d256c
commit
ba139b44e7
|
@ -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.
|
||||||
*)
|
*)
|
||||||
|
|
Loading…
Reference in New Issue