How to move in 3d world

[pradeepkrao]

Hi,

I am able to move my camera up and down.. by using...

D3DXMatrixLookAtLH matView, CameraP, CameraTo, MakeVector(0, 1, 0)

D3DDevice.SetTransform D3DTS_VIEW, matView

How do I move my camera towards the object...??..

I know by changing the cameraP and cameraTo would do it..
But I am finding hard to calculate the new position of the camera.. can anybody help me out..

Thanks,
Pradeep

[pradeepkrao]

Hi,

I used my simple point projection logic.
This is how I have done .....

Now I am able to move my Camera anywere in 3d world and I can rome arround...

When use hits the arrow keys I call the rotateCamera function ..

Public Sub rotateCamera(AngleA As Single, AngleB As Single)
Dim ax As Single, ay As Single, az As Single
 
ax = CameraTo.X - CameraPos.X
ay = CameraTo.Y - CameraPos.Y
az = CameraTo.Z - CameraPos.Z
 
    CameraTo.X = ax + CameraPos.X
    CameraTo.Y = (ay * Cos(DegToRad(AngleA))) - (az * Sin(DegToRad(AngleA))) + CameraPos.Y
    CameraTo.Z = (az * Cos(DegToRad(AngleA))) + (ay * Sin(DegToRad(AngleA))) + CameraPos.Z
 
 
CAngleA = CAngleA + AngleA
CAngleB = CAngleB + AngleB
If CAngleA > 360 Or CAngleA < -360 Then CAngleA = 0
If CAngleB > 360 Or CAngleB < -360 Then CAngleB = 0
 
ax = CameraTo.X - CameraPos.X
ay = CameraTo.Y - CameraPos.Y
az = CameraTo.Z - CameraPos.Z
 
       
    CameraTo.X = ax * Cos(DegToRad(AngleB)) + az * Sin(DegToRad(AngleB)) + CameraPos.X
    CameraTo.Y = ay + CameraPos.Y
    CameraTo.Z = az * Cos(DegToRad(AngleB)) - ax * Sin(DegToRad(AngleB)) + CameraPos.Z
        
    
End Sub
 
 
 
Private Function DegToRad(Angle As Single) As Single
    DegToRad = Angle * pi / 180
End Function
 
 
'When I want to move my Camera ahead I have to change its position.. And respectively change the look at vector also...
'The following functions does it...
 
Private Function MoveCamera(direction As Integer)
    
    Select Case direction
    
    Case 1
        
        CameraPos.X = CameraPos.X - 0.1 * Sin(DegToRad(CAngleB))
        CameraPos.Z = CameraPos.Z - 0.1 * Cos(DegToRad(CAngleB))
        
        CameraTo.X = CameraTo.X - 0.1 * Sin(DegToRad(CAngleB))
        CameraTo.Z = CameraTo.Z - 0.1 * Cos(DegToRad(CAngleB))
           
    Case -1
    
        CameraPos.X = CameraPos.X + 0.1 * Sin(DegToRad(CAngleB))
        CameraPos.Z = CameraPos.Z + 0.1 * Cos(DegToRad(CAngleB))
        
        CameraTo.X = CameraTo.X + 0.1 * Sin(DegToRad(CAngleB))
        CameraTo.Z = CameraTo.Z + 0.1 * Cos(DegToRad(CAngleB))
        
    Case 2
                
        CameraTo.Y = CameraTo.Y - 0.005 * Cos(DegToRad(CAngleA))
        If CameraTo.Y < -0.5 Then CameraTo.Y = -0.5
        If CameraTo.Y > 0.5 Then CameraTo.Y = 0.5
    
    Case -2
                
        CameraTo.Y = CameraTo.Y + 0.005 * Cos(DegToRad(CAngleA))
        If CameraTo.Y < -0.5 Then CameraTo.Y = -0.5
        If CameraTo.Y > 0.5 Then CameraTo.Y = 0.5
        
    End Select
    
End Function

Regards,
Pradeep

[pradeepkrao]

After calling the rotateCamera or MoveCamera function
Add the following lines of code...

D3DXMatrixLookAtLH matView, CameraPos, CameraTo, MakeVector(0, 1, 0)

D3DDevice.SetTransform D3DTS_VIEW, matView


Regards,
Pradeep