nein sollen kreise bleiben
und von der theorie her ist mir auch klar wie das geht nur leider funzt das net habe bei beiden kreisen den radius 25 gewählt
nun rechne ich via phytagoras aus wie weit die voneinander entfernt sind und lasse die dann ihre richtung wechseln nur wenn man das ganze startet kommt da irgendwie müll raus
Code:
if round(sqrt(sqr(x1+25-x+25)+sqr(y1+25-y+25))) <= 50
then begin
edit1.Text := IntToStr(StrToInt(Edit1.Text)*(-1));
edit3.Text := IntToStr(StrToInt(Edit3.Text)*(-1));
edit2.Text := IntToStr(StrToInt(Edit2.Text)*(-1));
edit4.Text := IntToStr(StrToInt(Edit4.Text)*(-1));
end ;