type t = Freetype.t
val init : unit -> t
type face = Freetype.face
type face_info =
  Freetype.face_info = {
  num_faces : int;
  num_glyphs : int;
  family_name : string;
  style_name : string;
  has_horizontal : bool;
  has_vertical : bool;
  has_kerning : bool;
  is_scalable : bool;
  is_sfnt : bool;
  is_fixed_width : bool;
  has_fixed_sizes : bool;
  has_fast_glyphs : bool;
  has_glyph_names : bool;
  has_multiple_masters : bool;
}
val new_face : t -> string -> int -> face * face_info
val get_num_glyphs : face -> int
val set_char_size : face -> float -> float -> int -> int -> unit
val set_pixel_sizes : face -> int -> int -> unit
type charmap = Freetype.charmap = { platform_id : int; encoding_id : int; }
type char_index = Freetype.char_index
val int_of_char_index : char_index -> int
val char_index_of_int : int -> char_index
val get_charmaps : face -> charmap list
val set_charmap : face -> charmap -> unit
val get_char_index : face -> int -> char_index
type render_mode = Freetype.render_mode = Render_Normal | Render_Mono
type load_flag = Freetype.load_flag = Load_no_scale | Load_no_hinting
val load_glyph : face -> char_index -> load_flag list -> float * float
val load_char : face -> int -> load_flag list -> float * float
val render_glyph_of_face : face -> render_mode -> unit
val render_glyph :
  face -> char_index -> load_flag list -> render_mode -> float * float
val render_char :
  face -> int -> load_flag list -> render_mode -> float * float
type matrix =
  Freetype.matrix = {
  ft_xx : float;
  ft_xy : float;
  ft_yx : float;
  ft_yy : float;
}
type vector = Freetype.vector = { ft_x : float; ft_y : float; }
val set_transform : face -> matrix -> vector -> unit
val matrix_rotate : float -> matrix
type bitmap_info =
  Freetype.bitmap_info = {
  bitmap_left : int;
  bitmap_top : int;
  bitmap_width : int;
  bitmap_height : int;
}
val get_bitmap_info : face -> bitmap_info
val read_bitmap : face -> int -> int -> int
type bbox =
  Freetype.bbox = {
  xmin : float;
  ymin : float;
  xmax : float;
  ymax : float;
}
type bearing_advance =
  Freetype.bearing_advance = {
  bearingx : float;
  bearingy : float;
  advance : float;
}
type glyph_metrics =
  Freetype.glyph_metrics = {
  gm_width : float;
  gm_height : float;
  gm_hori : bearing_advance;
  gm_vert : bearing_advance;
}
val get_glyph_metrics : face -> glyph_metrics
type size_metrics =
  Freetype.size_metrics = {
  x_ppem : int;
  y_ppem : int;
  x_scale : float;
  y_scale : float;
}
val get_size_metrics : face -> size_metrics
type outline_tag =
  Freetype.outline_tag =
    On_point
  | Off_point_conic
  | Off_point_cubic
type outline_contents =
  Freetype.outline_contents = {
  n_contours : int;
  n_points : int;
  points : (float * float) array;
  tags : outline_tag array;
  contours : int array;
}
val get_outline_contents : face -> outline_contents