Halbkreis zwischen zwei Punkten zeichnen.

[mleyen]

Dann halt: (Wenn ich mich auf die schnelle nicht vertue)

Delphi-Quellcode:

function getQdOuterCircQdDiff(const InnerQuadSideLen: Extended): Extended;
begin
  Result := (Sqrt(2*Power(InnerQuadSideLen,2)) - InnerQuadSideLen)/2;
end;