sig
  type otf_font
  val otf_font :
    string -> [ `Error of Otfm.error | `Otf of Vgr_pdf.otf_font ]
  type font =
      [ `Courier
      | `Fixed
      | `Helvetica
      | `Otf of Vgr_pdf.otf_font
      | `Sans
      | `Serif
      | `Times ]
  val font : Vg.font -> Vgr_pdf.font
  val target :
    ?font:(Vg.font -> Vgr_pdf.font) ->
    ?xmp:string -> unit -> Vg.Vgr.dst_stored Vg.Vgr.target
end