Kreisradius berechnen Tangente,Tangente,Durchpunkt

[Bomberbb]

Nun hab ich ne Lösung, aber die scheint mir doch sehr einfach... Nun ich werde mal schauen, ob das richtig ist...

Delphi-Quellcode:

sin(alpha) = r/(a+r)
r = sin(alpha)*(a+r)
r = a*sin(alpha) + r*sin(alpha)
r-r*sin(alpha) = a*sin(alpha)
r*(1-sin(alpha)) = a*sin(alpha)
r = a*sin(alpha) / (1-sin(alpha))