Hershey
type glyph = {
left : int;
right : int;
strokes : (int * int) list list;
}
val decode_glyph : string -> glyph
val glyph : char -> glyph
val units_per_em : float
val layout : string -> (float * float) list list * float