camera rotation around a fixed object -help!

Author

Message

Shaky Badger

16

Years of Service

User Offline

Joined: 18th Nov 2007

Location:

Posted: 19th Nov 2007 03:21

Link

title pretty much says it all, i'm trying to get my camera to rotate around an object (sphere) but i was hoping that there was an easy way to do this and i cant seem to figure it out. I was trying to move the camera based on the mouse, for example click and drag and it will rotate around the sphere, so far all it seems to want to do for me is just click and drag and then pan around the scene. Are there any commands that will help me in this endevour? any sort of pivot on an object or what? thanks for any suggestions on where to start.

badgering since 1986

Back to top

Profile PM Email

vorconan

17

Years of Service

User Offline

Joined: 4th Nov 2006

Location: Wales

Posted: 19th Nov 2007 20:36 Edited at: 19th Nov 2007 20:43

Link

Here goes:

+ Code Snippet

Sync On
Sync Rate 0

Make Object Box 1,1,1,1 `CAMERA DUMMY OBJECT
Make Object Sphere 2,50 `CENTER OBJECT
Color Object 2,RGB(200,0,0)
Zoom = 200 `ZOOM AMOUNT

Do

   If MouseClick() = 2
      Position Object 1,0,0,0
      Rotate Object 2,Object Angle X(1)-MouseMoveY(),Object Angle Y(1)+MouseMoveX(),0
      Move Object 1,Zoom
      Position Camera Object Position X(1),Object Position Y(1),Object Position Z(1)
      Point Camera 0,0,0
   Endif

   Sync
Loop

Not sure how to make the mouseclick() = 1 zoom in yet, you may have to use the main rotate code twice for each mouseclick, I'll try it and see.

EDIT - Yeah, thought so. Here's an updated bit of code, you can now rotate around the object with the right mouse button and zoom in with the left.

+ Code Snippet

Sync On
Sync Rate 0

Make Object Box 1,1,1,1 `CAMERA DUMMY OBJECT
Make Object Sphere 2,50 `CENTER OBJECT
Color Object 2,RGB(200,0,0)
Zoom = 200 `ZOOM AMOUNT

Do

   MouseMoveY() = 0

   If MouseClick() = 2
      Position Object 1,0,0,0
      Rotate Object 2,Object Angle X(1)-MouseMoveY(),Object Angle Y(1)+MouseMoveX(),0
      Move Object 1,Zoom
      Position Camera Object Position X(1),Object Position Y(1),Object Position Z(1)
      Point Camera 0,0,0
   Endif

   If MouseClick() = 1
      Inc Zoom,MouseMoveY()/2
      Position Object 1,0,0,0
      Rotate Object 2,Object Angle X(1),Object Angle Y(1),0
      Move Object 1,Zoom
      Position Camera Object Position X(1),Object Position Y(1),Object Position Z(1)
      Point Camera 0,0,0
   Endif

   Sync
Loop

Back to top

Profile PM Email

revenant chaos

Valued Member

17

Years of Service

User Offline

Joined: 21st Mar 2007

Location: Robbinsdale, MN

Posted: 22nd Nov 2007 14:44

Link

or you could do it this way

+ Code Snippet

Sync On
Sync Rate 0

Make Object Sphere 1,5
Color Object 1,RGB(200,0,0)

camangX as float
camangY as float
camdist#=20

Do
   if mouseclick()=1
      camangX=wrapvalue(camangX+mousemoveY())
      camangY=wrapvalue(camangY+mousemoveX())
   endif
   if mouseclick()=2
      camdist#=camdist#+mousemoveX()
      if camdist#<10 then camdist#=10
   endif
   position camera object position X(1),object position Y(1),object position Z(1)
   rotate camera camangX,camangY,0
   move camera 0-camdist#

   Sync
Loop

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / camera rotation around a fixed object -help!