Vektor um Achse drehen

[mkinzler]

Drehen um X-Achse:

Delphi-Quellcode:

x2 := x;
y2 := y * cos( <Winkel>) - z * sin( <Winkel>);
z2 := y * sin( <Winkel>) - z * cos( <Winkel>);

Drehen um Y-Achse:

Delphi-Quellcode:

x2 := x * cos( <Winkel>) + z * sin( <Winkel>);
y2 := y;
z2 := x * - sin( <Winkel>) + z * cos( <Winkel>);

Drehen um Z-Achse:

Delphi-Quellcode:

x2 := x * cos( <Winkel>) - y * sin( <Winkel>);
y2 := y * sin( <Winkel>) + z * cos( <Winkel>);
z2 := z;

Oder man verwendet eine Transformationsmatrix