let
of_array =
function
|
[|x; y; z; w|]
->
create x y z w
|
_
->
invalid_arg
"Osg.Quat.of_array"