Модератор: Mikle
Dim SinA As Single, CosA As Single, SinD As Single, CosD As Single
Private Sub CalcAngleDiff()
Dim v As D3DVECTOR
d3dDevice.GetTransform D3DTS_VIEW, Mtrx
D3DXMatrixInverse Mtrx, 1, Mtrx
D3DXVec3TransformNormal v, vec3(0, 0, 1), Mtrx
' D3DXVec3Normalize v, v 'Эта строка возможно не понадобится
SinD = v.y
CosD = Sqr(1 - SinD * SinD)
SinA = -v.x / CosD
CosA = v.z / CosD
End Sub
Private Sub CalcAngleDiff()
Dim v As D3DVECTOR
D3DXVec3TransformNormal v, vec3(0, 0, 1), Mtrx
' D3DXVec3Normalize v, v 'Эта строка возможно не понадобится
SinD = v.y
CosD = Sqr(1 - SinD * SinD)
SinA = -v.x / CosD
CosA = v.z / CosD
End Sub
Сейчас этот форум просматривают: Google-бот и гости: 0