Hey
Also ich habe nen Vektor (x,y,z) und ne Drehmatrix, zb um y
Delphi-Quellcode:
type
TVek3d=record
x,y,z:real;
end;
type
TMatrix33=record
sp1,sp2,sp3:TVek3d;
end;
//...
function RotMatY(alpha: Real):TMatrix33;
begin
result := CreateMat(
cos(alpha) ,0.0 ,-sin(alpha),
0.0 ,1.0 ,0.0,
sin(alpha) ,0.0 ,cos(alpha)
);
end;
so nun fahre ich so weiter:
ich erstelle eine matrix mit der function matrix1:=RotMatY(65)
dann multipliziere ich den vektor mit der matrix , den dabei enstanden Vektor
zeichne ich. Klappt auch alles aber wie kann ich eine nacheinander Drehung um die 3 Achsen
machen, also 30° um x, 10° um y und 124° um z ??