Ein bisschen lineare Algebra

[LDericher]

Das mit [0..Pi] ist mir dann auch aufgefallen... aber der arctan2 ist genau das was ich gebraucht habe!

Also hab ich was gebastelt, das genau das tut, was ich will:

Delphi-Quellcode:

function TColorRing.getAngle(X, Y: integer): integer;
var
  vecZ:TPoint;
  Angle:Extended;
begin
vecZ:=Point(X-aRadius, Y-aRadius);
Angle:=Math.ArcTan2(vecZ.X, vecZ.Y);
Result:=trunc(Angle*(180/Pi));
Result:=180-Result;
end;

Danke für eure Mühen!

Euer LDer