external to_tuple : t -> (float * float * float * float) = "quat_to_tuple"