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
|