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