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 von s.h.a.r.k:

Das sind doch keine Quadrate, sondern Rechtecke?!

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

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

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

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

**Bummi**

suchst Du sowas?

zusammenfalten · markieren

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 ^^

**Aphton**

Probier mal das hier:

markieren

Code:

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

Halbkreis zwischen zwei Punkten zeichnen.

Halbkreis zwischen zwei Punkten zeichnen.

AW: Halbkreis zwischen zwei Punkten zeichnen.

AW: Halbkreis zwischen zwei Punkten zeichnen.

AW: Halbkreis zwischen zwei Punkten zeichnen.

AW: Halbkreis zwischen zwei Punkten zeichnen.

AW: Halbkreis zwischen zwei Punkten zeichnen.

AW: Halbkreis zwischen zwei Punkten zeichnen.

AW: Halbkreis zwischen zwei Punkten zeichnen.

Forumregeln

s.h.a.r.k Registriert seit: 26. Mai 2004 3.159 Beiträge	#3 AW: Halbkreis zwischen zwei Punkten zeichnen. 14. Mär 2011, 15:06 Das sind doch keine Quadrate, sondern Rechtecke?! »Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)
	Zitat

Jackie1983 Registriert seit: 12. Mär 2007 486 Beiträge	#6 AW: Halbkreis zwischen zwei Punkten zeichnen. 14. Mär 2011, 15:41 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. Geändert von Jackie1983 (14. Mär 2011 um 16:07 Uhr)
	Zitat

jokerfacehro Registriert seit: 13. Feb 2007 306 Beiträge Delphi 7 Enterprise	#7 AW: Halbkreis zwischen zwei Punkten zeichnen. 14. Mär 2011, 16:09 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 ^^ "Never touch a running system administrator !"
	Zitat

Aphton Registriert seit: 31. Mai 2009 1.198 Beiträge Turbo Delphi für Win32	#8 AW: Halbkreis zwischen zwei Punkten zeichnen. 14. Mär 2011, 17:59 Probier mal das hier: markieren Code: AbstandDifferenz = SQRT(2SeitenlängeDesQuadrats^2)/2 - SeitenlängeDesQuadrats das Erkennen beginnt, wenn der Erkennende vom zu Erkennenden Abstand nimmt MfG Geändert von Aphton (14. Mär 2011 um 21:10 Uhr)*
	Zitat