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