Halbkreis zwischen zwei Punkten zeichnen.

[mleyen]

Ist jetzt die Entfernung vom äußerem zum innerem Quadrat gesucht, wobei die Seitenlänge vom äußerem Quadrat gegeben ist?
Dann:

Delphi-Quellcode:

function getQdInnerCircQdDiff(const QuadSideLenDiv2: Extended): Extended;
begin
  Result := QuadSideLenDiv2 - Sin(Pi/180*45)*QuadSideLenDiv2;
end;