Kugelkoordinaten berechnen, bräuchte hilfe...

[turboPASCAL]

Nein, denke ich mal.

So schaut's aus:

Delphi-Quellcode:

function SphericalCoordinates(r, vGrad, hGrad: single): TVector3D;
var
  st, ct, sp, cp: single;
begin
  // Grad zu Rad
  st := sin(vGrad * Pi / 180); // Theta
  ct := cos(vGrad * Pi / 180);
  sp := sin(hGrad * Pi / 180); //Phi
  cp := cos(hGrad * Pi / 180);

  // Kreiskoordinaten berechnen
  // x = r * sinTheta * cosPhi
  // y = r * sinTheta * sinPhi
  // z = r * cosTheta

  Result.X := r * st * cp;
  Result.Y := r * st * sp;
  Result.Z := r * ct;
end;