mirror of
https://github.com/johnwhitington/cpdf-source.git
synced 2024-12-12 16:57:08 +01:00
14 lines
310 B
OCaml
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
|