type 'a drawer = 'a -> int -> 'a
val func_darken_only : Color.rgb drawer
val func_red_only : Color.rgb drawer
val unicode_of_latin : string -> int array
val unicode_of_euc_japan : string -> int array
val draw_rotated_text :
  float ->
  (int -> int -> int -> unit) ->
  Freetype.face -> int -> int -> int array -> unit
val draw_rotated_glyphs :
  float ->
  (int -> int -> int -> unit) ->
  Freetype.face -> int -> int -> Freetype.char_index array -> unit
val draw_text :
  (int -> int -> int -> unit) ->
  Freetype.face -> int -> int -> int array -> unit
val draw_glyphs :
  (int -> int -> int -> unit) ->
  Freetype.face -> int -> int -> Freetype.char_index array -> unit
val draw_mono_rotated_text :
  float ->
  (int -> int -> int -> unit) ->
  Freetype.face -> int -> int -> int array -> unit
val draw_mono_rotated_glyphs :
  float ->
  (int -> int -> int -> unit) ->
  Freetype.face -> int -> int -> Freetype.char_index array -> unit
val draw_mono_text :
  (int -> int -> int -> unit) ->
  Freetype.face -> int -> int -> int array -> unit
val draw_mono_glyphs :
  (int -> int -> int -> unit) ->
  Freetype.face -> int -> int -> Freetype.char_index array -> unit
module type T =
  sig
    type t
    type elt
    val create : int -> int -> t
    val destroy : t -> unit
    val get : t -> int -> int -> elt
    val set : t -> int -> int -> elt -> unit
    val unsafe_get : t -> int -> int -> elt
    val unsafe_set : t -> int -> int -> elt -> unit
  end
module Make :
  functor (T : T) ->
    sig
      val draw_text :
        Freetype.face ->
        T.elt drawer -> T.t -> int -> int -> int array -> unit
      val draw_rotated_text :
        Freetype.face ->
        T.elt drawer -> T.t -> int -> int -> float -> int array -> unit
      val draw_glyphs :
        Freetype.face ->
        T.elt drawer ->
        T.t -> int -> int -> Freetype.char_index array -> unit
      val draw_rotated_glyphs :
        Freetype.face ->
        T.elt drawer ->
        T.t -> int -> int -> float -> Freetype.char_index array -> unit
      val draw_mono_text :
        Freetype.face ->
        T.elt drawer -> T.t -> int -> int -> int array -> unit
      val draw_mono_rotated_text :
        Freetype.face ->
        T.elt drawer -> T.t -> int -> int -> float -> int array -> unit
      val draw_mono_glyphs :
        Freetype.face ->
        T.elt drawer ->
        T.t -> int -> int -> Freetype.char_index array -> unit
      val draw_mono_rotated_glyphs :
        Freetype.face ->
        T.elt drawer ->
        T.t -> int -> int -> float -> Freetype.char_index array -> unit
    end
val size : Freetype.face -> int array -> float * float * float * float
val size_of_glyphs :
  Freetype.face -> Freetype.char_index array -> float * float * float * float
val vector_gen :
  (Freetype.face -> 'a -> 'b list -> float * float) ->
  bool ->
  float ->
  (Freetype.outline_contents -> 'c) ->
  Freetype.face -> float -> float -> 'a array -> unit
val vector_text :
  bool ->
  (Freetype.outline_contents -> 'a) ->
  Freetype.face -> float -> float -> float -> int array -> unit
val vector_glyphs :
  bool ->
  (Freetype.outline_contents -> 'a) ->
  Freetype.face ->
  float -> float -> float -> Freetype.char_index array -> unit