type 'a drawer = 'a -> int -> 'aval unicode_of_latin : string -> int arrayval unicode_of_euc_japan : string -> int arrayval draw_rotated_text :
float ->
(int -> int -> int -> unit) ->
Freetype.face ->
int ->
int ->
int array ->
unitval draw_text :
(int -> int -> int -> unit) ->
Freetype.face ->
int ->
int ->
int array ->
unitval draw_mono_rotated_text :
float ->
(int -> int -> int -> unit) ->
Freetype.face ->
int ->
int ->
int array ->
unitval draw_mono_text :
(int -> int -> int -> unit) ->
Freetype.face ->
int ->
int ->
int array ->
unitmodule type T = sig ... endmodule Make (T : T) : sig ... endval size : Freetype.face -> int array -> float * float * float * float