- Код: Выделить всё
Type BBox
Min as D3DVECTOR
Max As D3DVECTOR
End Type
Public Function GetBBox() As BBox
D3DX.ComputeBoundingBoxFromMesh m_Mesh, GetBBox.Min, GetBBox.Max
End Function
Public Function GetCollision(Pos As D3DVECTOR, Dir As D3DVECTOR) As Boolean
Dim Box as BBox
BBox = GetBBox
GetCollision = D3DX.BoxBoundProbe(BBox.Min, BBox.Max, Pos,Dir)
End Function
Вот проверка колизий! Теперь имееться трасса... В цикле пишу:
- Код: Выделить всё
sPos = Camera.Getposition
CheckInput
ePos = Camera.GetPosition
D3DXvec3Subtract eDir,ePos,sPos
If GetCollision(ePos,eDir) Then epos = spos
Camera.SetPosition epos
CheckInput - это проверка клавы и мыши где происходит движение с клавиш...
sPos,epos,eDir - D3DVector
Camera - класс камеры
Может кто подскажет в чём проблема?