Rectangle finden, daß von 2 Punkten aufgespannt wird

[Bjoerk]

Allerdings. Sehr sehr schöne Lösung. Bewundernswert wenn man so was kann. Du hast mir damit einen riesen Gefallen getan. Hab nochmal vielen lieben Dank.
BTW, seh ich doch richtig, daß für P4 P1 und P2 nur getauscht werden müssen?

Delphi-Quellcode:

  P3.X :=  C * C * P1.X - C * S * P1.Y + S * S * P2.X + C * S * P2.Y;
  P3.Y := -C * S * P1.X + S * S * P1.Y + C * S * P2.X + C * C * P2.Y;

  P4.X :=  C * C * P2.X - C * S * P2.Y + S * S * P1.X + C * S * P1.Y;
  P4.Y := -C * S * P2.X + S * S * P2.Y + C * S * P1.X + C * C * P1.Y;

[jfheins]

Zitat:

Zitat von Bjoerk (Beitrag 1247149)

Allerdings. Sehr sehr schöne Lösung. Bewundernswert wenn man so was kann. Du hast mir damit einen riesen Gefallen getan. Hab nochmal vielen lieben Dank.
BTW, seh ich doch richtig, daß für P4 P1 und P2 nur getauscht werden müssen?

Delphi-Quellcode:

  P3.X :=  C * C * P1.X - C * S * P1.Y + S * S * P2.X + C * S * P2.Y;
  P3.Y := -C * S * P1.X + S * S * P1.Y + C * S * P2.X + C * C * P2.Y;

  P4.X :=  C * C * P2.X - C * S * P2.Y + S * S * P1.X + C * S * P1.Y;
  P4.Y := -C * S * P2.X + S * S * P2.Y + C * S * P1.X + C * C * P1.Y;

N'abend :-)
Ja das sollte so passen. Freut mich auch, dass mein Ingenieursstudium anscheinend nicht umsonst war :stupid:
P.S.: Falls du auf das letzte Quäntchen Performance angewiesen bist, würde ich die Koeffizienten vorher berechnen und zwischenspeichern.

[Furtbichler]

Zitat:

Zitat von jfheins (Beitrag 1247148)

Äh, ja man kann sich auch wieder mit Geradengleichungen und Steigungen herumärgern. (Und Sonderfälle für senkrechte Gerade einführen)

Äh, ja. Und? Dafür ist es für mich verständlich und ich muss nicht googeln. Ach, und falls es Dir noch nicht aufgefallen ist: Es war ein Vorschlag, ne.