Ok habe die Lösung
Delphi-Quellcode:
// DREHMATRIX!!
alpha := Winkel/180*Pi;
d11 := cos(alpha);
d12 := -sin(alpha);
d21 := sin(alpha);
d22 := cos(alpha);
for i := low(haus) to high(Haus) do
begin
Temp[i].x := d11*Haus[i].x + d12*Haus[i].y;
Temp[i].y := d21*Haus[i].x + d22*Haus[i].y;
Haus[i].x := Temp[i].x;
Haus[i].y := Temp[i].y;
end; // <- DREHMATRIX!
Hiermit gibt man einfach einen Winkel an und das Polygon wird dann dementsprechend gedreht.
TIP: Wenn man an den Vektoren ein wenig rumspielt lassen sich tolle Effekte erzeugen[3D].
__________________________________________________ ________________________
Im Endeffekt regelt sich in dieser Gesellschafft alles über das Geld, positiv wie negativ.