sig
  type t
  external init :
    gc:CL_GraphicContext.t -> typeface:string -> height:int -> CL_Font.t
    = "caml_CL_Font_init"
  external of_desc :
    gc:CL_GraphicContext.t -> desc:CL_FontDescription.t -> CL_Font.t
    = "caml_CL_Font_of_desc"
  external delete : CL_Font.t -> unit = "caml_CL_Font_delete"
  external get_text_size :
    font:CL_Font.t -> gc:CL_GraphicContext.t -> text:string -> CL_Sizef.t
    = "caml_CL_Font_get_text_size"
  external draw_text :
    font:CL_Font.t ->
    gc:CL_GraphicContext.t ->
    pos:float * float -> text:string -> ?color:CL_Colorf.t -> unit -> unit
    = "caml_CL_Font_draw_text_bc" "caml_CL_Font_draw_text"
end