Ja es hat aber nicht funktioniert, oder ich habe es falsch umgesetzt.
Aber ich habe es geschafft
. Geht bestimmt auch einfacher
.
Delphi-Quellcode:
x1 := wert;
y1 := wert;
x2 := wert;
y2 := wert;
mx := (x2 + x1) div 2;
my := (y2 + y1) div 2;
laenge := Sqrt( Sqr(x2-x1) + Sqr(y2-y1) );
x1 := Round(mx-(laenge / 2));
y1 := ....
Arc(x2,y2, x1,....)
Danke für die Hilfe!