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