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