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