cpdf-source/cpdfspot.ml
2024-02-23 16:17:12 +00:00

14 lines
310 B
OCaml

open Pdfutil
let list_spot_colours pdf =
Pdf.objiter
(fun _ obj ->
match obj with
Pdf.Array (Pdf.Name "/Separation"::x::_) ->
begin match Pdf.direct pdf x with
Pdf.Name col -> Printf.printf "%s\n" col
| _ -> ()
end
| _ -> ())
pdf