Halbkreis zwischen zwei Punkten zeichnen.

[Jackie1983]

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!