sig
  type t
  exception Error of string
  val load :
    ?color:(Sdlvideo.color * int -> Sdlvideo.color * int) ->
    ?alpha:bool -> string -> Font.t
  val draw_char :
    ?on:Video.t ->
    ?surf:Sdlvideo.surface -> Font.t -> int -> int -> char -> unit
  val draw_string :
    ?on:Video.t ->
    ?surf:Sdlvideo.surface ->
    Font.t -> int -> int -> ?cursor:int -> string -> unit
  val height : Font.t -> int
  val width : Font.t -> string -> int
  val divide_string : Font.t -> string -> int -> string list
end