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