sig
type positions =
Sdlhat.positions = {
left : bool;
right : bool;
up : bool;
down : bool;
}
val string_of_pos : Sdl.Hat.positions -> string
type direction =
Sdlhat.direction =
Centered
| Up
| Right
| Down
| Left
| Right_Up
| Right_Down
| Left_Up
| Left_Down
val string_of_dir : Sdl.Hat.direction -> string
val dir_of_string : string -> Sdl.Hat.direction
end