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

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

[Furtbichler]

Zitat von jfheins:

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