Dreh Matrixen

[Mr.P-Funk]

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.