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