sig
  type t
  val create : int -> int32 -> int32 -> int32 -> Tsdl.Sdl.Haptic.Direction.t
  val typ : Tsdl.Sdl.Haptic.Direction.t -> Tsdl.Sdl.Haptic.direction_type
  val dir_0 : Tsdl.Sdl.Haptic.Direction.t -> int32
  val dir_1 : Tsdl.Sdl.Haptic.Direction.t -> int32
  val dir_2 : Tsdl.Sdl.Haptic.Direction.t -> int32
end