rotate camera around a point but retain all the look at angles

[wildsurfer]

hi all,


i wanted to rotate a camera around a point with the camera still looking at the point. How can i do that?i tried using the tvmath.movearoundpoint but the camera just move around the point but doesn't retain the look at angles. Can anybody help me with this?


Thanx a lot!

[kwazai]

you might try something like this-(use alt-arrow to rotate round, ctrl to move in and out, shift to move leftrightupdown)-

Code:

    Private Sub mylayoutprogramfrm_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        VALUE = radius / 10
        If InputEngine.IsKeyPressed(TrueVision3D.CONST_TV_KEY.TV_KEY_UP) And InputEngine.IsKeyPressed(TrueVision3D.CONST_TV_KEY.TV_KEY_ALT_LEFT) Then
            V_Ang = V_Ang + 1
        End If
        If InputEngine.IsKeyPressed(TrueVision3D.CONST_TV_KEY.TV_KEY_DOWN) And InputEngine.IsKeyPressed(TrueVision3D.CONST_TV_KEY.TV_KEY_ALT_LEFT) Then
            V_Ang = V_Ang - 1
        End If
        If InputEngine.IsKeyPressed(TrueVision3D.CONST_TV_KEY.TV_KEY_LEFT) And InputEngine.IsKeyPressed(TrueVision3D.CONST_TV_KEY.TV_KEY_ALT_LEFT) Then
            H_Ang = H_Ang - 1
        End If
        If InputEngine.IsKeyPressed(TrueVision3D.CONST_TV_KEY.TV_KEY_RIGHT) And InputEngine.IsKeyPressed(TrueVision3D.CONST_TV_KEY.TV_KEY_ALT_LEFT) Then
            H_Ang = H_Ang + 1
        End If
        If InputEngine.IsKeyPressed(TrueVision3D.CONST_TV_KEY.TV_KEY_UP) And InputEngine.IsKeyPressed(TrueVision3D.CONST_TV_KEY.TV_KEY_LEFTCONTROL) Then
            radius = radius - VALUE
        End If
        If InputEngine.IsKeyPressed(TrueVision3D.CONST_TV_KEY.TV_KEY_DOWN) And InputEngine.IsKeyPressed(TrueVision3D.CONST_TV_KEY.TV_KEY_LEFTCONTROL) Then
            radius = radius + VALUE
        End If
        campos = tvmath.MoveAroundPoint(camlookat, radius, H_Ang, V_Ang)
        cam.SetCamera(campos.x, campos.y, campos.z, camlookat.x, camlookat.y, camlookat.z)
        VALUE = radius / 10
        TS1 = radius / 10
        TS2 = radius / 10
        If InputEngine.IsKeyPressed(TrueVision3D.CONST_TV_KEY.TV_KEY_RIGHT) And InputEngine.IsKeyPressed(TrueVision3D.CONST_TV_KEY.TV_KEY_LEFTSHIFT) = True Then
            TS1 = TS1 + VALUE
            cam.MoveRelative(0, 0, -TS1 / 2)
        End If
        If InputEngine.IsKeyPressed(TrueVision3D.CONST_TV_KEY.TV_KEY_LEFT) And InputEngine.IsKeyPressed(TrueVision3D.CONST_TV_KEY.TV_KEY_LEFTSHIFT) = True Then
            TS1 = TS1 + VALUE
            cam.MoveRelative(0, 0, TS1 / 2)
        End If
        If InputEngine.IsKeyPressed(TrueVision3D.CONST_TV_KEY.TV_KEY_DOWN) And InputEngine.IsKeyPressed(TrueVision3D.CONST_TV_KEY.TV_KEY_LEFTSHIFT) = True Then
            TS2 = TS2 + VALUE
            cam.MoveRelative(0, TS2 / 2, 0)
        End If
        If InputEngine.IsKeyPressed(TrueVision3D.CONST_TV_KEY.TV_KEY_UP) And InputEngine.IsKeyPressed(TrueVision3D.CONST_TV_KEY.TV_KEY_LEFTSHIFT) = True Then
            TS2 = TS2 + VALUE
            cam.MoveRelative(0, -TS2 / 2, 0)
        End If
        campos = cam.GetPosition()
        camlookat = cam.GetLookAt()
    End Sub

[wildsurfer]

thanx kwazai!


but i don't understand your codes..Can u please explain? To make my questions clearer, i created a diagram below:

This is what i wanted:


This is what i get using the tvmath.movearoundpoint:


the red figure is the meshes/landscape.

I wanted the camera to rotate around an object/landscape but still focusing on the same object.

i hope u guys get what im trying to say.

Thanx a lot!

[Raine]

Basically you want to keep the LookAt at the same point?

[Lordtek]

ONCE YOU GET THE CAM CORDS TO MOVE AROUND THE OBJECT SIMPLY SET THE LOOK POINT
USING .SETCAMERA X,Y,Z,LOOKX,LOOKY,LOOKZ

[ZaPPZion]

but make sure you type it with caps lock off, or the compiler will go crazy

[wildsurfer]

yes, i want the camera to keep looking at a point.

How do i get the camera coords to move around the object?bcoz, if the object moves, the coords will not be the same..And i want the camera to move around the object when i push a button i.e alt+arrow or hold right mouse button.

[newborn]

Lordtek had your answer just there....

[kwazai]

Code:

campos = tvmath.MoveAroundPoint(camlookat, radius, H_Ang, V_Ang)
        cam.SetCamera(campos.x, campos.y, campos.z, camlookat.x, camlookat.y, camlookat.z)

all the rest of the code previously posted is in regard to which button does what- alt-arrow (rotate), shift-arrow (slide), ctrl-arrow (zoom). the code adjusts the radius, H_ang,V_ang.
the .moverelative command does the slide.
your code just needs the .setcamera command after .movearaoundpoint.

mike

[wildsurfer]

oo..ok..i'll give it a try..Thanx a lot guys!