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