sig
  exception SDLttf_exception of string
  val init : unit -> unit
  val quit : unit -> unit
  type font
  val open_font : string -> ?index:int -> int -> Sdlttf.font
  type font_style = NORMAL | BOLD | ITALIC | UNDERLINE
  val get_font_style : Sdlttf.font -> Sdlttf.font_style list
  val set_font_style : Sdlttf.font -> Sdlttf.font_style list -> unit
  val font_height : Sdlttf.font -> int
  val font_ascent : Sdlttf.font -> int
  val font_descent : Sdlttf.font -> int
  val font_lineskip : Sdlttf.font -> int
  val font_faces : Sdlttf.font -> int
  val is_fixed_width : Sdlttf.font -> bool
  val family_name : Sdlttf.font -> string
  val style_name : Sdlttf.font -> string
  val size_text : Sdlttf.font -> string -> int * int
  val size_utf8 : Sdlttf.font -> string -> int * int
  val glyph_metrics : Sdlttf.font -> char -> int * int * int * int
  type render_kind =
      SOLID of Sdlvideo.color
    | SHADED of Sdlvideo.color * Sdlvideo.color
    | BLENDED of Sdlvideo.color
  val render_text_solid :
    Sdlttf.font -> string -> fg:Sdlvideo.color -> Sdlvideo.surface
  val render_text_shaded :
    Sdlttf.font ->
    string -> fg:Sdlvideo.color -> bg:Sdlvideo.color -> Sdlvideo.surface
  val render_text_blended :
    Sdlttf.font -> string -> fg:Sdlvideo.color -> Sdlvideo.surface
  val render_utf8_solid :
    Sdlttf.font -> string -> fg:Sdlvideo.color -> Sdlvideo.surface
  val render_utf8_shaded :
    Sdlttf.font ->
    string -> fg:Sdlvideo.color -> bg:Sdlvideo.color -> Sdlvideo.surface
  val render_utf8_blended :
    Sdlttf.font -> string -> fg:Sdlvideo.color -> Sdlvideo.surface
  val render_text :
    Sdlttf.font -> Sdlttf.render_kind -> string -> Sdlvideo.surface
  val render_glyph_solid :
    Sdlttf.font -> char -> fg:Sdlvideo.color -> Sdlvideo.surface
  val render_glyph_shaded :
    Sdlttf.font ->
    char -> fg:Sdlvideo.color -> bg:Sdlvideo.color -> Sdlvideo.surface
  val render_glyph_blended :
    Sdlttf.font -> char -> fg:Sdlvideo.color -> Sdlvideo.surface
  val render_glyph :
    Sdlttf.font -> Sdlttf.render_kind -> char -> Sdlvideo.surface
end