sig
  external new_font : unit -> SWF.font = "ml_newswffont"
  external load_from_file : filename:string -> SWF.font
    = "ml_loadswffontfromfile"
  external destroy : font:SWF.font -> unit = "ml_destroyswffont"
  external get_string_width : font:SWF.font -> string:string -> float
    = "ml_swffont_getstringwidth"
  external get_ascent : font:SWF.font -> float = "ml_swffont_getascent"
  external get_descent : font:SWF.font -> float = "ml_swffont_getdescent"
  external get_leading : font:SWF.font -> float = "ml_swffont_getleading"
end