Зона Меню

[sun]

Нивеа, по поводу вращения, вот написал тебе функцию, может пригодится
Это чобы директ не подключать...



Type D3DQUATERNION
w As Single
x As Single
y As Single
z As Single
End Type


Function D3DUtil_RotationAxis(x As Single, y As Single, z As Single, rotationInDegrees As Single) As D3DQUATERNION
Dim quat As D3DQUATERNION
Dim Theta As Single
Theta = (rotationInDegrees / 180) * g_pi
quat.x = Sin(Theta / 2) * x
quat.y = Sin(Theta / 2) * y
quat.z = Sin(Theta / 2) * z
quat.w = Cos(Theta / 2)

D3DUtil_RotationAxis = quat

End Function