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;