Halbkreis zwischen zwei Punkten zeichnen.

[Bummi]

suchst Du sowas?

Delphi-Quellcode:

var
  px1,py1,px2,py2, ipx1, ipy1, ipx2,ipy2:Integer;
begin
  px1 := 100;
  py1 := 100;
  px2 := 300;
  py2 := 300;
  ipx1 := px1 + 40;
  ipy1 := py1 + 40;
  ipx2 := px2 - 40;
  ipy2 := py2 - 40;

  Canvas.Arc(px1,py1,px2,py2, ipx2,ipy2, ipx1, ipy1);
end;

[Jackie1983]

Genau so in der Art mache ich es Zur zeit.
Nur die 40 kenne ich ja nicht die muss ich ja berechnen nur weiß ich nicht wie.
//Edit ich muss also immer ein quadrat um die beiden punkte zeichnen und diese per halbkreis verbinden.

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

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

[Aphton]

Probier mal das hier:

Code:

AbstandDifferenz = SQRT(2*SeitenlängeDesQuadrats^2)/2 - SeitenlängeDesQuadrats

[Bummi]

ich bin sicher, dass alles ganz trivial ist...
Mir ist nicht ganz klar
1.) was hast Du
2.) was willst Du..