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