Source position: kraft.pas line 4666
procedure QuaternionToSpherical(
const q: TKraftQuaternion;
var Latitude: TKraftScalar;
var Longitude: TKraftScalar
);