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