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