Halbkreis zwischen zwei Punkten zeichnen.

[jokerfacehro]

dreh mal das innere grüne "quadrat" gedanklich um 45°.
dann solltest du es sehen ^^

die länge der diagonalen des grünen quadrats entspricht der seitenlänge des roten quadrats

Edit: wenn das wirklich quadrate sein sollen ^^

[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;

[Jackie1983]

Ne das grüne habe ich. Also die Entfernung vom grünen zum roten.
45°... ja ok stimmt, jetzt muss ich das nur irgend wie in eine formel bekommen.

[Jumpy]

Du hast doch Mittelpunkt und Radius des Kreises, oder was versteh ich jetzt nicht? Daraus leitet sich doch alles weitere ab...
Vllt. mal den Kreis ganz zeichnen, dann sieht mans doch.

[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;

[Jumpy]

Zitat von 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;

<=> Result := (Sqrt(2)*InnerQuadSideLen - InnerQuadSideLen)/2;
<=> Result := (Sqrt(2)-1)*InnerQuadSideLen/2;

[Jackie1983]

Sorry aber ich verstehe nur Bahnhof, boar eh zum kotzen wenn man das nicht mehr hinbekommt .

Soweit bin ich jetzt
l := Sqrt( Sqr(x2-x1) + Sqr(y2-y1) );

Jetzt habe ich schonmal die Hypotenuse
Wenn ich jetzt per Rectangle(0,0, l, l) bekomme ich ein Quadrat wo ich meinen halbkreis rein zeichnen kann, oder .

[Bummi]

Delphi-Quellcode:

var
  px1,py1,px2,py2, ipx1, ipy1, ipx2,ipy2:Integer;
  f:Double;
begin
  px1 := 100;
  py1 := 100;
  px2 := 500;
  py2 := 500;
  ipx1 := px1 ;
  ipy1 := py1 ;
  ipx2 := px2 ;
  ipy2 := py2 ;
  f :=  (1 - sin(DegToRad(45))) * (px2-px1) / SQRT(2);
  Canvas.Rectangle(px1,py1,px2,py2);
  Canvas.Arc(Round(px1 - f),Round(py1 - f),Round(px2 +  f),Round(py2 + f), ipx2,ipy2, ipx1, ipy1);
end;