Orbit Code Malfunction - GameCreators Forum

Author

Message

lucifer 1101

15

Years of Service

User Offline

Joined: 26th Jan 2009

Location: Melbourne, Australia

Posted: 12th Nov 2009 03:20

Link

Hello all i am using this code to make the camera orbit around an object, but it wont do it properly..

All that it does is position itself at the object and pivots in the same position.
I had this working in another program so i really dont know whats going on...

FUNCTION SetFocusToOrbit( StartDis AS FLOAT , MinDis AS FLOAT , MaxDis AS FLOAT )
GLOBAL FocusDistance AS FLOAT
GLOBAL FocusMinDistance AS FLOAT
GLOBAL FocusMaxDistance AS FLOAT
FocusDistance = StartDis
FocusMinDistance = MinDis
FocusMaxDistance = MaxDis
ENDFUNCTION

FUNCTION UpdateFocusToOrbit( Object AS INTEGER )
      POSITION CAMERA OBJECT POSITION X(Object),OBJECT POSITION Y(Object),OBJECT POSITION Z(Object)
         IF MOUSECLICK()=2
            XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()*0.1
            YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()*0.1
            IF CAMERA ANGLE X()>80 THEN XROTATE CAMERA 80
            IF CAMERA ANGLE X()<-60 THEN XROTATE CAMERA -60
         ENDIF
         IF MOUSECLICK() = 4 THEN FocusDistance=FocusDistance-MOUSEMOVEY()*0.25
         if upkey()=1 then FocusDistance=FocusDistance+2.5
         if downkey()=1 then FocusDistance=FocusDistance-2.5
         if FocusDistance>FocusMinDistance then FocusDistance=FocusMinDistance
         if FocusDistance<FocusMaxDistance then FocusDistance=FocusMaxDistance
         move camera FocusDistance
         if camera position y()<-60 then position camera camera position x(),-60,camera position z()
      mousemovex()=0
      mousemovey()=0
ENDFUNCTION

+ Code Snippet

FUNCTION SetFocusToOrbit( StartDis AS FLOAT , MinDis AS FLOAT , MaxDis AS FLOAT )
GLOBAL FocusDistance AS FLOAT
GLOBAL FocusMinDistance AS FLOAT
GLOBAL FocusMaxDistance AS FLOAT
FocusDistance = StartDis
FocusMinDistance = MinDis
FocusMaxDistance = MaxDis
ENDFUNCTION

FUNCTION UpdateFocusToOrbit( Object AS INTEGER )
      POSITION CAMERA OBJECT POSITION X(Object),OBJECT POSITION Y(Object),OBJECT POSITION Z(Object)
         IF MOUSECLICK()=2
            XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()*0.1
            YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()*0.1
            IF CAMERA ANGLE X()>80 THEN XROTATE CAMERA 80
            IF CAMERA ANGLE X()<-60 THEN XROTATE CAMERA -60
         ENDIF
         IF MOUSECLICK() = 4 THEN FocusDistance=FocusDistance-MOUSEMOVEY()*0.25
         if upkey()=1 then FocusDistance=FocusDistance+2.5
         if downkey()=1 then FocusDistance=FocusDistance-2.5
         if FocusDistance>FocusMinDistance then FocusDistance=FocusMinDistance
         if FocusDistance<FocusMaxDistance then FocusDistance=FocusMaxDistance
         move camera FocusDistance
         if camera position y()<-60 then position camera camera position x(),-60,camera position z()
      mousemovex()=0
      mousemovey()=0
ENDFUNCTION

Any help is appreciated..

Back to top

Profile PM Email

MSon

20

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 12th Nov 2009 05:18 Edited at: 12th Nov 2009 05:19

Link

Heres a simple 'RotateCameraRoundObjectUsingMouse(Obj)' Function, you should be able to change this to rotate automatically instead of by mouse control.

+ Code Snippet

global a#
global b#

make object cube 1,10

do
RotateCameraRoundObjectUsingMouse(1) 
loop
     
Function RotateCameraRoundObjectUsingMouse(Obj)
   x#=object position x(Obj)
   y#=object position y(Obj)
   z#=object position z(Obj)

   dist#=sqrt(((camera position x()-x#)^2)+((camera position y()-y#)^2)+((camera position z()-z#)^2))

   a#=wrapvalue(a#+mousemovex())
   b#=wrapvalue(b#+mousemovey())
   position camera x#+(sin(a#)*sin(b#)*dist#),y#+(cos(b#)*dist#),z#+(cos(a#)*sin(b#)*dist#)
   point camera x#,y#,z#

endfunction

Everyone Be Cool, You, Be Cool.

Back to top

Profile PM Email Website

lucifer 1101

15

Years of Service

User Offline

Joined: 26th Jan 2009

Location: Melbourne, Australia

Posted: 12th Nov 2009 07:15

Link

thanks for that, let me tell you what i want the end result to be, i want to make it like a 3rd person camera for a spaceship.

the other code that i posted had a zooming feature using the mousewheel and the up/down keys, im a bit rusty arent i...

Back to top

Profile PM Email

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 12th Nov 2009 12:43

Link

Here's another method, but it only moves the camera vertically between set limits (it doesn't rotate). The method is best suited to following a character around - rather than full rotation around a spaceship so it might not be suitable.

It does however still rotate around the cube when it is moved (use cursor keys).

+ Code Snippet

sync on: sync rate 0: Hide Mouse
make object cube 1,6: Rem Main Centre Cube
Make Matrix 1,100,100,10,10
Position Matrix 1,-50,-3,-50
Radius#=25.0: AngleInc=5: Rem Speed of rotation
XDist#=Radius#: ZDist#=Radius#
Do
  MMx# = MouseMoveX()/10.0: MMy# = MouseMoveY()/100.0
  If Upkey() Then Move Object 1,0.01
  If Downkey() Then Move Object 1,-0.01
  If Leftkey() Then YRotate Object 1,WrapValue(Object Angle Y(1)-0.05)
  If Rightkey() Then YRotate Object 1,WrapValue(Object Angle Y(1)+0.05)
  ObjPosX#=Object Position X(1): ObjPosY#=Object Position Y(1): ObjPosZ#=Object Position Z(1)
  X# = WrapValue(X# + MMx#): Z# = WrapValue(Z# + MMx#): Y# = Y# - MMy#
  If Y# < 0.0 Then Y# = 0.0
  If Y# > 25.0 Then Y# = 25.0
  Position Camera NewXvalue(ObjPosX#,X#,XDist#),Y#,NewZvalue(ObjPosZ#,Z#,ZDist#)
  Point Camera ObjPosX#,ObjPosY#,ObjPosZ#
  Sync
Loop

TDK

*** TDK's New Web Site ***

Back to top

Profile PM Email Website

lucifer 1101

15

Years of Service

User Offline

Joined: 26th Jan 2009

Location: Melbourne, Australia

Posted: 12th Nov 2009 13:12

Link

thats very close thankyou vm.

i will see what i can do with it..

Back to top

Profile PM Email

lucifer 1101

15

Years of Service

User Offline

Joined: 26th Jan 2009

Location: Melbourne, Australia

Posted: 12th Nov 2009 23:31 Edited at: 13th Nov 2009 05:51

Link

hmmm thats very weird, i stretched the code out and it makes the cube go slower, owell..

ok my next step is to get the camera to follow the character and only rotate when the right mouse button is down, any suggestions..

EDIT1: Ok i have the rightclick code working properly

+ Code Snippet

sync on
sync rate 60
Hide Mouse

make object cube 1,6

Make Matrix 1,100,100,10,10
Position Matrix 1,-50,-3,-50

Radius#=25.0
AngleInc=5
XDist#=Radius#
ZDist#=Radius#
Do

  MMx# = MouseMoveX()/10.0
  MMy# = MouseMoveY()/100.0
  
  If Upkey() Then Move Object 1,0.5
  If Downkey() Then Move Object 1,-0.5
  If Leftkey() Then YRotate Object 1,WrapValue(Object Angle Y(1)-2.5)
  If Rightkey() Then YRotate Object 1,WrapValue(Object Angle Y(1)+2.5)
  
  ObjPosX#=Object Position X(1)
  ObjPosY#=Object Position Y(1)
  ObjPosZ#=Object Position Z(1)
  
  X# = WrapValue(X# + MMx#)
  Z# = WrapValue(Z# + MMx#)
  Y# = Y# - MMy#
  If Y# < 0.0 Then Y# = 0.0
  If Y# > 25.0 Then Y# = 25.0
  
  IF MOUSECLICK() = 2
  	Position Camera NewXvalue(ObjPosX#,X#,XDist#),Y#,NewZvalue(ObjPosZ#,Z#,ZDist#)
  	Point Camera ObjPosX#,ObjPosY#,ObjPosZ#
  ELSE
  	Position Camera NewXvalue(ObjPosX#,0,XDist#),0,NewZvalue(ObjPosZ#,0,ZDist#)
  	Point Camera ObjPosX#,ObjPosY#,ObjPosZ#
  ENDIF
  
  Sync
Loop

ok now i just have to get the camera to rotate when the cube rotates..

EDIT2:

sync on
sync rate 60

make object cube 1,6

Make Matrix 1,100,100,10,10
Position Matrix 1,-50,-3,-50

Radius#=25.0
AngleInc=5
XDist#=Radius#
ZDist#=Radius#
Do

MMx# = MouseMoveX()/10.0
  MMy# = MouseMoveY()/100.0
  X2# = OBJECT ANGLE X(1)
  Y2# = OBJECT ANGLE Y(1)
  Z2# = OBJECT ANGLE Z(1)
  
  If Upkey() Then Move Object 1,0.5
  If Downkey() Then Move Object 1,-0.5
  If Leftkey() Then YRotate Object 1,WrapValue(Object Angle Y(1)-2.5)
  If Rightkey() Then YRotate Object 1,WrapValue(Object Angle Y(1)+2.5)
  
  ObjPosX#=Object Position X(1)
  ObjPosY#=Object Position Y(1)
  ObjPosZ#=Object Position Z(1)
  
  X# = WrapValue(X# + MMx#)
  Z# = WrapValue(Z# + MMx#)
  Y# = Y# - MMy#
  If Y# < 0.0 Then Y# = 0.0
  If Y# > 25.0 Then Y# = 25.0
  
  IF MOUSECLICK() = 2
  	Position Camera NewXvalue(ObjPosX#,X#,XDist#),Y#,NewZvalue(ObjPosZ#,Z#,ZDist#)
  	Point Camera ObjPosX#,ObjPosY#,ObjPosZ#
  ELSE
  	Position Camera NewXvalue(ObjPosX#,X2#,XDist#),Y2#,NewZvalue(ObjPosZ#,Z2#,ZDist#)
  	Point Camera ObjPosX#,ObjPosY#,ObjPosZ#
  ENDIF
  
  Sync
Loop

+ Code Snippet

sync on
sync rate 60

make object cube 1,6

Make Matrix 1,100,100,10,10
Position Matrix 1,-50,-3,-50

Radius#=25.0
AngleInc=5
XDist#=Radius#
ZDist#=Radius#
Do

  MMx# = MouseMoveX()/10.0
  MMy# = MouseMoveY()/100.0
  X2# = OBJECT ANGLE X(1)
  Y2# = OBJECT ANGLE Y(1)
  Z2# = OBJECT ANGLE Z(1)
  
  If Upkey() Then Move Object 1,0.5
  If Downkey() Then Move Object 1,-0.5
  If Leftkey() Then YRotate Object 1,WrapValue(Object Angle Y(1)-2.5)
  If Rightkey() Then YRotate Object 1,WrapValue(Object Angle Y(1)+2.5)
  
  ObjPosX#=Object Position X(1)
  ObjPosY#=Object Position Y(1)
  ObjPosZ#=Object Position Z(1)
  
  X# = WrapValue(X# + MMx#)
  Z# = WrapValue(Z# + MMx#)
  Y# = Y# - MMy#
  If Y# < 0.0 Then Y# = 0.0
  If Y# > 25.0 Then Y# = 25.0
  
  IF MOUSECLICK() = 2
  	Position Camera NewXvalue(ObjPosX#,X#,XDist#),Y#,NewZvalue(ObjPosZ#,Z#,ZDist#)
  	Point Camera ObjPosX#,ObjPosY#,ObjPosZ#
  ELSE
  	Position Camera NewXvalue(ObjPosX#,X2#,XDist#),Y2#,NewZvalue(ObjPosZ#,Z2#,ZDist#)
  	Point Camera ObjPosX#,ObjPosY#,ObjPosZ#
  ENDIF
  
  Sync
Loop

i tried to make the camera follow the object when righclick isnt pressed but it ends up going weird, am i atleast on the right track with this??

Back to top

Profile PM Email

lucifer 1101

15

Years of Service

User Offline

Joined: 26th Jan 2009

Location: Melbourne, Australia

Posted: 13th Nov 2009 09:49

Link

ok im just 1 step closer to getting the camera right

sync on
sync rate 60

make object cube 1,6

Make Matrix 1,100,100,10,10
Position Matrix 1,-50,-3,-50

Radius#=25.0
AngleInc=5
XDist#=Radius#
ZDist#=Radius#
Do

Radius# = Radius# + -MOUSEMOVEZ()/10
  IF Radius# < 15 THEN Radius# = 15
  IF Radius# > 100 THEN Radius# = 100
  XDist#=Radius#
  ZDist#=Radius#
  YDist#=Radius#

MMx# = MouseMoveX()/10.0
  MMy# = -MouseMoveY()/100.0
  
  If Upkey() Then XRotate Object 1,WrapValue(Object Angle X(1)-2.5)
  If Downkey() Then XRotate Object 1,WrapValue(Object Angle X(1)+2.5)
  If Leftkey() Then YRotate Object 1,WrapValue(Object Angle Y(1)-2.5)
  If Rightkey() Then YRotate Object 1,WrapValue(Object Angle Y(1)+2.5)
  
  if leftkey()=1 then oaz#=wrapvalue(oaz#-2.5)
  if rightkey()=1 then oaz#=wrapvalue(oaz#+2.5)
  if upkey()=1 then oay#=wrapvalue(oay#-2.5)
  if downkey()=1 then oay#=wrapvalue(oay#+2.5)
  
  ObjPosX#=Object Position X(1)
  ObjPosY#=Object Position Y(1)
  ObjPosZ#=Object Position Z(1)
  
  X# = WrapValue(X# + MMx#)
  Z# = WrapValue(Z# + MMx#)
  Y# = Y# - MMy#
  If Y# < 0.0 Then Y# = 0.0
  If Y# > 25.0 Then Y# = 25.0
  
  IF MOUSECLICK() = 2
  	Position Camera NewXvalue(ObjPosX#,X#,XDist#),Y#,NewZvalue(ObjPosZ#,Z#,ZDist#)
  	Point Camera ObjPosX#,ObjPosY#,ObjPosZ#
  ELSE
  	Position Camera NewXvalue(ObjPosX#,oaz#,XDist#),NewYvalue(ObjPosY#,oay#,YDist#),NewZvalue(ObjPosZ#,oaz#,ZDist#)
  	Point Camera ObjPosX#,ObjPosY#,ObjPosZ#
  ENDIF
  
  Sync
Loop

+ Code Snippet

sync on
sync rate 60

make object cube 1,6

Make Matrix 1,100,100,10,10
Position Matrix 1,-50,-3,-50

Radius#=25.0
AngleInc=5
XDist#=Radius#
ZDist#=Radius#
Do

  Radius# = Radius# + -MOUSEMOVEZ()/10
  IF Radius# < 15 THEN Radius# = 15
  IF Radius# > 100 THEN Radius# = 100
  XDist#=Radius#
  ZDist#=Radius#
  YDist#=Radius#

  MMx# = MouseMoveX()/10.0
  MMy# = -MouseMoveY()/100.0
  
  If Upkey() Then XRotate Object 1,WrapValue(Object Angle X(1)-2.5)
  If Downkey() Then XRotate Object 1,WrapValue(Object Angle X(1)+2.5)
  If Leftkey() Then YRotate Object 1,WrapValue(Object Angle Y(1)-2.5)
  If Rightkey() Then YRotate Object 1,WrapValue(Object Angle Y(1)+2.5)
  
  if leftkey()=1 then oaz#=wrapvalue(oaz#-2.5)
  if rightkey()=1 then oaz#=wrapvalue(oaz#+2.5)
  if upkey()=1 then oay#=wrapvalue(oay#-2.5)
  if downkey()=1 then oay#=wrapvalue(oay#+2.5)
  
  ObjPosX#=Object Position X(1)
  ObjPosY#=Object Position Y(1)
  ObjPosZ#=Object Position Z(1)
  
  X# = WrapValue(X# + MMx#)
  Z# = WrapValue(Z# + MMx#)
  Y# = Y# - MMy#
  If Y# < 0.0 Then Y# = 0.0
  If Y# > 25.0 Then Y# = 25.0
  
  IF MOUSECLICK() = 2
  	Position Camera NewXvalue(ObjPosX#,X#,XDist#),Y#,NewZvalue(ObjPosZ#,Z#,ZDist#)
  	Point Camera ObjPosX#,ObjPosY#,ObjPosZ#
  ELSE
  	Position Camera NewXvalue(ObjPosX#,oaz#,XDist#),NewYvalue(ObjPosY#,oay#,YDist#),NewZvalue(ObjPosZ#,oaz#,ZDist#)
  	Point Camera ObjPosX#,ObjPosY#,ObjPosZ#
  ENDIF
  
  Sync
Loop

the effect i get when i try to pitche the camera screws up alot.

please any help is loved..

Back to top

Profile PM Email

feiting shadow

18

Years of Service

User Offline

Joined: 12th Sep 2006

Location:

Posted: 14th Nov 2009 06:35

Link

When complex math is involved, I usually do this:

1) Move camera to object position
2) Set camera to object rotation
3) Use your Sine/Cosine functions if necessary to position it above or below the object. (step 3 might not be necessary if you use a static angle)
4) move object a negative distance.

Voila, math avoided. You do have a few extra lines, but hopefully the speed isn't too necessary. The beauty of this is the rendering is only done once, so the user will never know the shortcuts are used.

Signed
------

Back to top

Profile PM

lucifer 1101

15

Years of Service

User Offline

Joined: 26th Jan 2009

Location: Melbourne, Australia

Posted: 15th Nov 2009 00:05

Link

thankyou for that feiting shadow but i already have a mostly working code i just need to get the camera to follow in the y rotation...

thanks anyway

Back to top

Profile PM Email

lucifer 1101

15

Years of Service

User Offline

Joined: 26th Jan 2009

Location: Melbourne, Australia

Posted: 15th Nov 2009 23:23

Link

can anybody help me with this please??....

Back to top

Profile PM Email

Kira Vakaan

15

Years of Service

User Offline

Joined: 1st Dec 2008

Location: MI, United States

Posted: 18th Nov 2009 08:57 Edited at: 18th Nov 2009 09:10

Link

Hey there, I don't think I've seen you around lately. Good to see you.

I've been breaking my head over this for the last 48 hours, and I think I've come up with a workable solution. Of course, I don't know if you still need this, but it was a good exercise for me nonetheless.

set display mode 1024,768,32,1
sync on

`Custom Vector and Matrix types because DBPro's native commands suck
type Vector
  x                     as float
  y                     as float
  z                     as float
  w                     as float
endtype

type Matrix
  _11 as float : _12 as float : _13 as float : _14 as float
  _21 as float : _22 as float : _23 as float : _24 as float
  _31 as float : _32 as float : _33 as float : _34 as float
  _41 as float : _42 as float : _43 as float : _44 as float
endtype

`v and m are used for function returns.  Any function needing to return a Vector or a Matrix fills v or m.
global v as Vector
global m as Matrix

make object cube 1,6

make object cube 2,1
hide object 2

make matrix 1,100,100,10,10
position matrix 1,-50,-3,-50

Radius#=25.0

`UpVec as Vector
ObjectPos as Vector   `Camera position in object space
WorldPos as Vector    `Camera position in world space

`SetVec(0,1,0,1) : UpVec=v
SetVec(0,0,-Radius#,1) : ObjectPos=v

OldObjectToWorld as Matrix  `Transforms from object space to world space (before the cube turns at all)
NewObjectToWorld as Matrix  `Transforms from object space to world space (after the cube turns)
NewWorldToObject as Matrix  `Transforms from world space to object space (after the cube turns)

WorldToView as Matrix       `I think you get the idea of these matrices by now...
ViewToWorld as Matrix

MouseRotation as Matrix     `Matrix representing the rotation caused by the mouse

do
  set cursor 0,0
  print screen fps()
  
  mmx=mousemovex()
  mmy=mousemovey()
  
  `Get WorldToView Matrix
  CreateXRotationMatrix(-camera angle x(0)) : WorldToView=m
  CreateYRotationMatrix(-camera angle y(0)) : MultiplyMatrices(WorldToView,m) : WorldToView=m
  
  `Get ViewToWorld Matrix
  CreateYRotationMatrix(camera angle y(0)) : ViewToWorld=m
  CreateXRotationMatrix(camera angle x(0)) : MultiplyMatrices(ViewToWorld,m) : ViewToWorld=m
  
  `Get OldObjectToWorld Matrix
  CreateYRotationMatrix(object angle y(1)) : OldObjectToWorld=m
  CreateXRotationMatrix(object angle x(1)) : MultiplyMatrices(OldObjectToWorld,m) : OldObjectToWorld=m
  
  `Rotate object based on input
  xrotate object 1,wrapvalue(object angle x(1)+2.5*(upkey()-downkey()))
  yrotate object 1,wrapvalue(object angle y(1)+2.5*(rightkey()-leftkey()))
  
  `Get NewObjectToWorld Matrix
  CreateYRotationMatrix(object angle y(1)) : NewObjectToWorld=m
  CreateXRotationMatrix(object angle x(1)) : MultiplyMatrices(NewObjectToWorld,m) : NewObjectToWorld=m
  
  `Get NewWorldToObject Matrix
  CreateXRotationMatrix(-object angle x(1)) : NewWorldToObject=m
  CreateYRotationMatrix(-object angle y(1)) : MultiplyMatrices(NewWorldToObject,m) : NewWorldToObject=m
  
  `While holding the right mouse button,
  if mouseclick()=2
    `Get MouseRotation Matrix
    CreateYRotationMatrix(mmx/10.0) : MouseRotation=m
    CreateXRotationMatrix(mmy/10.0) : MultiplyMatrices(MouseRotation,m) : MouseRotation=m
    
    `Take the camera's object space position and bring it into world space
    TransformVec(OldObjectToWorld,ObjectPos)
    `Take the world space position and bring it into view space
    TransformVec(WorldToView,v) `The vector should now contain the coordinates (0,0,-Radius#)
    `Do the mouse rotation
    TransformVec(MouseRotation,v)
    `Take the new view coordinates and bring them back into world space
    TransformVec(ViewToWorld,v) : WorldPos=v
    `Take the new world space coordinates and bring them into object space (after the cube rotation was applied)
    TransformVec(NewWorldToObject,v) : ObjectPos=v
  `If not holding the right mouse button,
  else
    `Just rotate the camera's position along with the object, by transforming the camera's object space position into world space using the rotated cube's transform matrix
    TransformVec(NewObjectToWorld,ObjectPos) : WorldPos=v
  endif
    
    `Adjust the camera's world space position by the object's
    SetVec(object position x(1),object position y(1),object position z(1),1) : AddVec(WorldPos,v) : WorldPos=v
    position camera 0,WorldPos.x,WorldPos.y,WorldPos.z
    `Using point camera causes the camera to remain right-side-up at all times.  I might want to fool around with getting a custom up vector working.
    point camera 0,object position x(1),object position y(1),object position z(1)
  
  sync
loop

end

`Some Vector/Matrix manipulation commands

function SetVec(x as float,y as float,z as float,w as float)
  v.x=x : v.y=y : v.z=z : v.w=w
endfunction

function AddVec(vec1 as Vector,vec2 as Vector)
  v.x=vec1.x+vec2.x
  v.y=vec1.y+vec2.y
  v.z=vec1.z+vec2.z
  v.w=1.0
endfunction

function MultiplyMatrices(mat1 as Matrix,mat2 as Matrix)
  m._11=mat1._11*mat2._11+mat1._12*mat2._21+mat1._13*mat2._31+mat1._14*mat2._41
  m._12=mat1._11*mat2._12+mat1._12*mat2._22+mat1._13*mat2._32+mat1._14*mat2._42
  m._13=mat1._11*mat2._13+mat1._12*mat2._23+mat1._13*mat2._33+mat1._14*mat2._43
  m._14=mat1._11*mat2._14+mat1._12*mat2._24+mat1._13*mat2._34+mat1._14*mat2._44
  
  m._21=mat1._21*mat2._11+mat1._22*mat2._21+mat1._23*mat2._31+mat1._24*mat2._41
  m._22=mat1._21*mat2._12+mat1._22*mat2._22+mat1._23*mat2._32+mat1._24*mat2._42
  m._23=mat1._21*mat2._13+mat1._22*mat2._23+mat1._23*mat2._33+mat1._24*mat2._43
  m._24=mat1._21*mat2._14+mat1._22*mat2._24+mat1._23*mat2._34+mat1._24*mat2._44
  
  m._31=mat1._31*mat2._11+mat1._32*mat2._21+mat1._33*mat2._31+mat1._34*mat2._41
  m._32=mat1._31*mat2._12+mat1._32*mat2._22+mat1._33*mat2._32+mat1._34*mat2._42
  m._33=mat1._31*mat2._13+mat1._32*mat2._23+mat1._33*mat2._33+mat1._34*mat2._43
  m._34=mat1._31*mat2._14+mat1._32*mat2._24+mat1._33*mat2._34+mat1._34*mat2._44
  
  m._41=mat1._41*mat2._11+mat1._42*mat2._21+mat1._43*mat2._31+mat1._44*mat2._41
  m._42=mat1._41*mat2._12+mat1._42*mat2._22+mat1._43*mat2._32+mat1._44*mat2._42
  m._43=mat1._41*mat2._13+mat1._42*mat2._23+mat1._43*mat2._33+mat1._44*mat2._43
  m._44=mat1._41*mat2._14+mat1._42*mat2._24+mat1._43*mat2._34+mat1._44*mat2._44
endfunction

function TransformVec(mat as Matrix,vec as Vector)
  v.x=vec.x*mat._11+vec.y*mat._12+vec.z*mat._13+vec.w*mat._14
  v.y=vec.x*mat._21+vec.y*mat._22+vec.z*mat._23+vec.w*mat._24
  v.z=vec.x*mat._31+vec.y*mat._32+vec.z*mat._33+vec.w*mat._34
  v.w=vec.x*mat._41+vec.y*mat._42+vec.z*mat._43+vec.w*mat._44
endfunction

function CreateXRotationMatrix(ang as float)
  m._11=1.0 : m._12=0.0 : m._13=0.0 : m._14=0.0
  m._21=0.0 : m._22=cos(ang) : m._23=-sin(ang) : m._24=0.0
  m._31=0.0 : m._32=sin(ang) : m._33=cos(ang) : m._34=0.0
  m._41=0.0 : m._42=0.0 : m._43=0.0 : m._44=1.0
endfunction

function CreateYRotationMatrix(ang as float)
  m._11=cos(ang) : m._12=0.0 : m._13=sin(ang) : m._14=0.0
  m._21=0.0 : m._22=1.0 : m._23=0.0 : m._24=0.0
  m._31=-sin(ang) : m._32=0.0 : m._33=cos(ang) : m._34=0.0
  m._41=0.0 : m._42=0.0 : m._43=0.0 : m._44=1.0
endfunction

`function CreateZRotationMatrix(ang as float)
`  m._11=cos(ang) : m._12=-sin(ang) : m._13=0.0 : m._14=0.0
`  m._21=sin(ang) : m._22=cos(ang) : m._23=0.0 : m._24=0.0
`  m._31=0.0 : m._32=0.0 : m._33=1.0 : m._34=0.0
`  m._41=0.0 : m._42=0.0 : m._43=0.0 : m._44=1.0
`endfunction

+ Code Snippet

set display mode 1024,768,32,1
sync on

`Custom Vector and Matrix types because DBPro's native commands suck
type Vector
  x                     as float
  y                     as float
  z                     as float
  w                     as float
endtype

type Matrix
  _11 as float : _12 as float : _13 as float : _14 as float
  _21 as float : _22 as float : _23 as float : _24 as float
  _31 as float : _32 as float : _33 as float : _34 as float
  _41 as float : _42 as float : _43 as float : _44 as float
endtype

`v and m are used for function returns.  Any function needing to return a Vector or a Matrix fills v or m.
global v as Vector
global m as Matrix

make object cube 1,6

make object cube 2,1
hide object 2

make matrix 1,100,100,10,10
position matrix 1,-50,-3,-50

Radius#=25.0

`UpVec as Vector
ObjectPos as Vector   `Camera position in object space
WorldPos as Vector    `Camera position in world space

`SetVec(0,1,0,1) : UpVec=v
SetVec(0,0,-Radius#,1) : ObjectPos=v

OldObjectToWorld as Matrix  `Transforms from object space to world space (before the cube turns at all)
NewObjectToWorld as Matrix  `Transforms from object space to world space (after the cube turns)
NewWorldToObject as Matrix  `Transforms from world space to object space (after the cube turns)

WorldToView as Matrix       `I think you get the idea of these matrices by now...
ViewToWorld as Matrix

MouseRotation as Matrix     `Matrix representing the rotation caused by the mouse

do
  set cursor 0,0
  print screen fps()
  
  mmx=mousemovex()
  mmy=mousemovey()
  
  `Get WorldToView Matrix
  CreateXRotationMatrix(-camera angle x(0)) : WorldToView=m
  CreateYRotationMatrix(-camera angle y(0)) : MultiplyMatrices(WorldToView,m) : WorldToView=m
  
  `Get ViewToWorld Matrix
  CreateYRotationMatrix(camera angle y(0)) : ViewToWorld=m
  CreateXRotationMatrix(camera angle x(0)) : MultiplyMatrices(ViewToWorld,m) : ViewToWorld=m
  
  `Get OldObjectToWorld Matrix
  CreateYRotationMatrix(object angle y(1)) : OldObjectToWorld=m
  CreateXRotationMatrix(object angle x(1)) : MultiplyMatrices(OldObjectToWorld,m) : OldObjectToWorld=m
  
  `Rotate object based on input
  xrotate object 1,wrapvalue(object angle x(1)+2.5*(upkey()-downkey()))
  yrotate object 1,wrapvalue(object angle y(1)+2.5*(rightkey()-leftkey()))
  
  `Get NewObjectToWorld Matrix
  CreateYRotationMatrix(object angle y(1)) : NewObjectToWorld=m
  CreateXRotationMatrix(object angle x(1)) : MultiplyMatrices(NewObjectToWorld,m) : NewObjectToWorld=m
  
  `Get NewWorldToObject Matrix
  CreateXRotationMatrix(-object angle x(1)) : NewWorldToObject=m
  CreateYRotationMatrix(-object angle y(1)) : MultiplyMatrices(NewWorldToObject,m) : NewWorldToObject=m
  
  `While holding the right mouse button,
  if mouseclick()=2
    `Get MouseRotation Matrix
    CreateYRotationMatrix(mmx/10.0) : MouseRotation=m
    CreateXRotationMatrix(mmy/10.0) : MultiplyMatrices(MouseRotation,m) : MouseRotation=m
    
    `Take the camera's object space position and bring it into world space
    TransformVec(OldObjectToWorld,ObjectPos)
    `Take the world space position and bring it into view space
    TransformVec(WorldToView,v) `The vector should now contain the coordinates (0,0,-Radius#)
    `Do the mouse rotation
    TransformVec(MouseRotation,v)
    `Take the new view coordinates and bring them back into world space
    TransformVec(ViewToWorld,v) : WorldPos=v
    `Take the new world space coordinates and bring them into object space (after the cube rotation was applied)
    TransformVec(NewWorldToObject,v) : ObjectPos=v
  `If not holding the right mouse button,
  else
    `Just rotate the camera's position along with the object, by transforming the camera's object space position into world space using the rotated cube's transform matrix
    TransformVec(NewObjectToWorld,ObjectPos) : WorldPos=v
  endif
    
    `Adjust the camera's world space position by the object's
    SetVec(object position x(1),object position y(1),object position z(1),1) : AddVec(WorldPos,v) : WorldPos=v
    position camera 0,WorldPos.x,WorldPos.y,WorldPos.z
    `Using point camera causes the camera to remain right-side-up at all times.  I might want to fool around with getting a custom up vector working.
    point camera 0,object position x(1),object position y(1),object position z(1)
  
  sync
loop

end

`Some Vector/Matrix manipulation commands

function SetVec(x as float,y as float,z as float,w as float)
  v.x=x : v.y=y : v.z=z : v.w=w
endfunction

function AddVec(vec1 as Vector,vec2 as Vector)
  v.x=vec1.x+vec2.x
  v.y=vec1.y+vec2.y
  v.z=vec1.z+vec2.z
  v.w=1.0
endfunction

function MultiplyMatrices(mat1 as Matrix,mat2 as Matrix)
  m._11=mat1._11*mat2._11+mat1._12*mat2._21+mat1._13*mat2._31+mat1._14*mat2._41
  m._12=mat1._11*mat2._12+mat1._12*mat2._22+mat1._13*mat2._32+mat1._14*mat2._42
  m._13=mat1._11*mat2._13+mat1._12*mat2._23+mat1._13*mat2._33+mat1._14*mat2._43
  m._14=mat1._11*mat2._14+mat1._12*mat2._24+mat1._13*mat2._34+mat1._14*mat2._44
  
  m._21=mat1._21*mat2._11+mat1._22*mat2._21+mat1._23*mat2._31+mat1._24*mat2._41
  m._22=mat1._21*mat2._12+mat1._22*mat2._22+mat1._23*mat2._32+mat1._24*mat2._42
  m._23=mat1._21*mat2._13+mat1._22*mat2._23+mat1._23*mat2._33+mat1._24*mat2._43
  m._24=mat1._21*mat2._14+mat1._22*mat2._24+mat1._23*mat2._34+mat1._24*mat2._44
  
  m._31=mat1._31*mat2._11+mat1._32*mat2._21+mat1._33*mat2._31+mat1._34*mat2._41
  m._32=mat1._31*mat2._12+mat1._32*mat2._22+mat1._33*mat2._32+mat1._34*mat2._42
  m._33=mat1._31*mat2._13+mat1._32*mat2._23+mat1._33*mat2._33+mat1._34*mat2._43
  m._34=mat1._31*mat2._14+mat1._32*mat2._24+mat1._33*mat2._34+mat1._34*mat2._44
  
  m._41=mat1._41*mat2._11+mat1._42*mat2._21+mat1._43*mat2._31+mat1._44*mat2._41
  m._42=mat1._41*mat2._12+mat1._42*mat2._22+mat1._43*mat2._32+mat1._44*mat2._42
  m._43=mat1._41*mat2._13+mat1._42*mat2._23+mat1._43*mat2._33+mat1._44*mat2._43
  m._44=mat1._41*mat2._14+mat1._42*mat2._24+mat1._43*mat2._34+mat1._44*mat2._44
endfunction

function TransformVec(mat as Matrix,vec as Vector)
  v.x=vec.x*mat._11+vec.y*mat._12+vec.z*mat._13+vec.w*mat._14
  v.y=vec.x*mat._21+vec.y*mat._22+vec.z*mat._23+vec.w*mat._24
  v.z=vec.x*mat._31+vec.y*mat._32+vec.z*mat._33+vec.w*mat._34
  v.w=vec.x*mat._41+vec.y*mat._42+vec.z*mat._43+vec.w*mat._44
endfunction

function CreateXRotationMatrix(ang as float)
  m._11=1.0 : m._12=0.0 : m._13=0.0 : m._14=0.0
  m._21=0.0 : m._22=cos(ang) : m._23=-sin(ang) : m._24=0.0
  m._31=0.0 : m._32=sin(ang) : m._33=cos(ang) : m._34=0.0
  m._41=0.0 : m._42=0.0 : m._43=0.0 : m._44=1.0
endfunction

function CreateYRotationMatrix(ang as float)
  m._11=cos(ang) : m._12=0.0 : m._13=sin(ang) : m._14=0.0
  m._21=0.0 : m._22=1.0 : m._23=0.0 : m._24=0.0
  m._31=-sin(ang) : m._32=0.0 : m._33=cos(ang) : m._34=0.0
  m._41=0.0 : m._42=0.0 : m._43=0.0 : m._44=1.0
endfunction

`function CreateZRotationMatrix(ang as float)
`  m._11=cos(ang) : m._12=-sin(ang) : m._13=0.0 : m._14=0.0
`  m._21=sin(ang) : m._22=cos(ang) : m._23=0.0 : m._24=0.0
`  m._31=0.0 : m._32=0.0 : m._33=1.0 : m._34=0.0
`  m._41=0.0 : m._42=0.0 : m._43=0.0 : m._44=1.0
`endfunction

My solution uses a lot of complex math, but it works. I kinda wish there was an easier solution. If you need help understanding anything please ask.

Edit:

Some things I forgot to mention:
This demo uses the point camera command, which will always keep the camera right-side-up, so while pitching the cube down, the camera will turn itself around after it reaches the very top of its orbit. That might be a problem if you want true free-flight. I think I might mess around with trying to impose my own up vector on the camera to correct this, but the native DBPro command set makes this very difficult. We'll see.
...I thought I had more things, but I'm going blank right now... I'll post back later if I remember.

Oh, and if someone has a way to do the same thing, while avoiding all that nasty math, please share.
Let me know if this is at least close to what you were going for.

Back to top

Profile PM Email

KISTech

16

Years of Service

User Offline

Joined: 8th Feb 2008

Location: Aloha, Oregon

Posted: 18th Nov 2009 17:08

Link

Feiting Shadow's method is what you want in order to have the camera follow the player. Using DBPro you're going to want to use all the shortcuts you can find, as complex math will slow your framerate.

- Set a variable for the distance from the player (zoom)
- Make the mousewheel (or whatever else) modify that variable.
- Set a variable for the angle the camera will be in relation to the player.
- Make your camera rotation controls alter that angle. (using Wrapvalue to keep the angle valid)
- Position the camera at the player position.
- Rotate it using the angle variable in your sin cos calculation.
- Move it backwards the amount in the zoom variable.

Do this each loop and the camera will follow the player at whatever angle and distance you specify.

Back to top

Profile PM Email Website

Kira Vakaan

15

Years of Service

User Offline

Joined: 1st Dec 2008

Location: MI, United States

Posted: 18th Nov 2009 20:45

Link

feiting shadow's method does not do what mine does. In mine, while the right mouse button is pressed, the user is allowed to rotate the cube without affecting the camera's position at all, and when the right mouse button is up, the camera's position relative to the object is held exactly as the cube rotates. Of course, if feiting shadow's method produces a result that's closer to what lucifer 1101 had in mind, then by all means, skip the math.

Back to top

Profile PM Email

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 19th Nov 2009 01:01

Link

lucifer 1101:

As none of the code any of us has supplied so far seems to exactly fit the bill, before we go any further, I think it would be best if you clearly explain exactly what you are trying to achieve in detail.

So far, you appear to not be sure of what you are after. You started off with:

Quote: "make the camera orbit around an object, but it wont do it properly"

...and after that, you went on to the 'next step' and completely lost me. So...

1. What controls the cube?

2. What controls the camera?

3. What should the mouse buttons do?

4. What should happen when the mouse buttons are not being used?

Everything in one big hit please - so we know exactly what we are aiming for!

TDK

*** TDK's New Web Site ***

Back to top

Profile PM Email Website

lucifer 1101

15

Years of Service

User Offline

Joined: 26th Jan 2009

Location: Melbourne, Australia

Posted: 19th Nov 2009 01:24

Link

thankyou all for your help unfortunately i dont think im ready to do much coding right now, i made a mistake, thats why i am active with 3d modelling..

thanks again..

anyway what i was after was a camer that when the right mouse buton is pressed will orbit around the spaceship when the mouse moves, but when the button is released it goes back to its original position, which it did in my last code snippet, i also wanted zoom with mousez.

and then i was starting to get the camera to follow the rotations of the spaceship(cube) on x,z and y.

the spaceship movement code i had done previously which i was going to integrate into this code is..

SetupMoveVariables:
   RollVelocity#=0
   RollAcceleration#=0.06
   RollDeceleration#=0.03

PitchVelocity#=0
   PitchAcceleration#=0.06
   PitchDeceleration#=0.03

ThrustVelocity#=0
   ThrustAcceleration#=0.06
   ThrustDeceleration#=0
   dim VelocityCap#(3)
   VelocityCap#(1)=50    `Forward
   VelocityCap#(3)=30  `Backward
return

HandlePlayer:
   `Increase or decrease velocities
   if rightkey() then inc RollVelocity#,RollAcceleration#
   if leftkey() then dec RollVelocity#,RollAcceleration#
   if upkey() then dec PitchVelocity#,PitchAcceleration#
   if downkey() then inc PitchVelocity#,PitchAcceleration#
   if keystate(201) then inc ThrustVelocity#,ThrustAcceleration# : ThrustDeceleration#=0
   if keystate(209) then dec ThrustVelocity#,ThrustAcceleration# : ThrustDeceleration#=0

RollSign=Sign(RollVelocity#)
   PitchSign=Sign(PitchVelocity#)
   ThrustSign=Sign(ThrustVelocity#)

`Cap velocities
   if abs(RollVelocity#)>5 then RollVelocity#=Sign(RollVelocity#)*5
   if abs(PitchVelocity#)>5 then PitchVelocity#=Sign(PitchVelocity#)*5
   if abs(ThrustVelocity#)>VelocityCap#(2-ThrustSign) then ThrustVelocity#=ThrustSign*VelocityCap#(2-ThrustSign)

`Actually turn the camera
   roll camera right RollVelocity#
   pitch camera up PitchVelocity#
   move camera ThrustVelocity#

`Bring the velocities closer to zero.
   if abs(RollVelocity#)>0 then dec RollVelocity#,RollSign*RollDeceleration#
   if RollSign<>Sign(RollVelocity#) then RollVelocity#=0
   if abs(PitchVelocity#)>0 then dec PitchVelocity#,PitchSign*PitchDeceleration#
   if PitchSign<>Sign(PitchVelocity#) then PitchVelocity#=0

`Increase/Decrease Thrust Velocity (FullStop/FullForward)
   if keystate(207) then ThrustDeceleration#=0.07
   if keystate(199) then ThrustDeceleration#=-0.07

if abs(ThrustVelocity#)>=0 then dec ThrustVelocity#,ThrustSign*ThrustDeceleration#
   if ThrustSign<>Sign(ThrustVelocity#)
      ThrustVelocity#=0
      ThrustDeceleration#=0
   endif
return

REM ************** FUNCTIONS *****************

`Returns the sign of a#
function Sign(a#)
   sign=1
   if a#<0 then sign=-1
endfunction sign

+ Code Snippet

SetupMoveVariables:
   RollVelocity#=0
   RollAcceleration#=0.06
   RollDeceleration#=0.03

   PitchVelocity#=0
   PitchAcceleration#=0.06
   PitchDeceleration#=0.03

   ThrustVelocity#=0
   ThrustAcceleration#=0.06
   ThrustDeceleration#=0
   dim VelocityCap#(3)
   VelocityCap#(1)=50    `Forward
   VelocityCap#(3)=30  `Backward
return

HandlePlayer:
   `Increase or decrease velocities
   if rightkey() then inc RollVelocity#,RollAcceleration#
   if leftkey() then dec RollVelocity#,RollAcceleration#
   if upkey() then dec PitchVelocity#,PitchAcceleration#
   if downkey() then inc PitchVelocity#,PitchAcceleration#
   if keystate(201) then inc ThrustVelocity#,ThrustAcceleration# : ThrustDeceleration#=0
   if keystate(209) then dec ThrustVelocity#,ThrustAcceleration# : ThrustDeceleration#=0

   RollSign=Sign(RollVelocity#)
   PitchSign=Sign(PitchVelocity#)
   ThrustSign=Sign(ThrustVelocity#)

   `Cap velocities
   if abs(RollVelocity#)>5 then RollVelocity#=Sign(RollVelocity#)*5
   if abs(PitchVelocity#)>5 then PitchVelocity#=Sign(PitchVelocity#)*5
   if abs(ThrustVelocity#)>VelocityCap#(2-ThrustSign) then ThrustVelocity#=ThrustSign*VelocityCap#(2-ThrustSign)

   `Actually turn the camera
   roll camera right RollVelocity#
   pitch camera up PitchVelocity#
   move camera ThrustVelocity#

   `Bring the velocities closer to zero.
   if abs(RollVelocity#)>0 then dec RollVelocity#,RollSign*RollDeceleration#
   if RollSign<>Sign(RollVelocity#) then RollVelocity#=0
   if abs(PitchVelocity#)>0 then dec PitchVelocity#,PitchSign*PitchDeceleration#
   if PitchSign<>Sign(PitchVelocity#) then PitchVelocity#=0

   `Increase/Decrease Thrust Velocity (FullStop/FullForward)
   if keystate(207) then ThrustDeceleration#=0.07
   if keystate(199) then ThrustDeceleration#=-0.07

   if abs(ThrustVelocity#)>=0 then dec ThrustVelocity#,ThrustSign*ThrustDeceleration#
   if ThrustSign<>Sign(ThrustVelocity#)
      ThrustVelocity#=0
      ThrustDeceleration#=0
   endif
return

REM ************** FUNCTIONS *****************

`Returns the sign of a#
function Sign(a#)
   sign=1
   if a#<0 then sign=-1
endfunction sign

Back to top

Profile PM Email

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 19th Nov 2009 01:56

Link

+ Code Snippet

Sync On: Sync Rate 60: CLS
Hide Mouse
Make Matrix 1,500,500,70,70
Make Object Cube 1,1
YRotate Object 1,35.0
Position Object 1,250.0,0.0,250.0
VAngle# = 0.0: Camdist# = 8.0: Camheight# = 2.0: Camsmooth# = 10.0: ColFlag = 0
Do
  MMx=MouseMoveX(): MMy=MouseMoveY(): MMz=MouseMoveZ(): Mc=MouseClick()
  Move Object 1,0.01
  X#=Object Position X(1): Y#=Object Position Y(1): Z#=Object Position Z(1)
  Set Camera To Follow X#, Y#, Z#, VAngle#, Camdist#, Camheight#, Camsmooth#, ColFlag
  Point Camera X#, Y#, Z#
  If Mc=2 And RMB = False Then VAngle# = WrapValue(VAngle#+MMx/10.0): RMB = True
  If Mc<2 And RMB = True Then VAngle# = Object Angle Y(1): RMB = False
  If MMz<>OldMMz Then Dec Camdist#,MMz/200.0: OldMMz=MMz
  Sync
Loop
End

TDK

*** TDK's New Web Site ***

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Orbit Code Malfunction