Halbkreis zwischen zwei Punkten zeichnen.

[Jackie1983]

Servus,

habe schon bei google und hier gesucht. Habe auch schon genug funktionen gefunden um einen halbkreis zu zeichnen.

Z.b. hier von einer Seite
Grafik

Kein Problem. Nur mein Problem ist das ich die Koordinaten außen habe, links oben und rechts unten. Zwischen den beiden soll ein halbkreis gezeichnet werden.

Anbei eine Grafik wie weit ich bin.
Das grüne ist das Quadrat mit den Position p1 und p2. Das rote ist ein Quadrat mit p1 + 40 und p2 + 40.
Wie kann ich aber die 40 berechnen?
Kann mir da einer weiterhelfen?

gruß Thomas

[Bummi]

IMHO ist alles was Du brauchst der Mittelpunkt, von dort über StartWinkel bis (Startwinkel + 180) mit DegToRad für Sinus und Coisnus die Haltepunkte berechnen (Radius ist Dir ja bekannt) und verbinden.

[s.h.a.r.k]

Das sind doch keine Quadrate, sondern Rechtecke?!

[Jackie1983]

Zitat:

Zitat von s.h.a.r.k (Beitrag 1088365)

Das sind doch keine Quadrate, sondern Rechtecke?!

Ja blöd beschrieben solange sie quadratisch gezeichnet werden geht es, das meine ich....

Zitat:

Zitat von Bummi (Beitrag 1088364)

IMHO ist alles was Du brauchst der Mittelpunkt, von dort über StartWinkel bis (Startwinkel + 180) mit DegToRad für Sinus und Coisnus die Haltepunkte berechnen (Radius ist Dir ja bekannt) und verbinden.

Mittelpunkt ist kein Problem. Aber wie berechne ich den Startwinkel. Sorry steh gerade voll auf dem schlauch, hätte in der Schule besser aufpassen müssen :wink:

Und mit der Methode Arc muss ich ja 4 Punkte übergeben.

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