camera movement - GameCreators Forum

Author

Message

Damokles

21

Years of Service

User Offline

Joined: 28th May 2003

Location: Belgium

Posted: 25th Sep 2003 23:29

Link

Can anyone tell me how to solve that problem ?

+ Code Snippet

SYNC ON

MAKE OBJECT CUBE 1,1

Rem - Main Loop
REPEAT
     GOSUB MoveCam
     SYNC
UNTIL MOUSECLICK()=1

     DELETE OBJECT 1
     END

MoveCam:
          IF LEFTKEY()=1 THEN aY#=Wrapvalue(aY#+1.5)
          IF RIGHTKEY()=1 THEN aY#=Wrapvalue(aY#-1.5)
          IF UPKEY()=1 THEN aZ#=Wrapvalue(aZ#+1.5)
          IF DOWNKEY()=1 THEN aZ#=Wrapvalue(aZ#-1.5)

         cZ# = Newzvalue(0,aY#-180,10)
         cY# = Newzvalue(0,aZ#-180,10)
         cX# = Newxvalue(0,aY#+aZ#-180,10)

         POSITION CAMERA cX#,cY#,cZ#
         POINT CAMERA 0,0,0

RETURN

In the upper code, you see one try (of many), I want to press the up and down key to turn around that cube, like it works on the lower code for left and right.

+ Code Snippet

SYNC ON

MAKE OBJECT CUBE 1,1

Rem - Main Loop
REPEAT
     GOSUB MoveCam
     SYNC
UNTIL MOUSECLICK()=1

     DELETE OBJECT 1
     END

MoveCam:
          IF LEFTKEY()=1 THEN aY#=Wrapvalue(aY#+1.5)
          IF RIGHTKEY()=1 THEN aY#=Wrapvalue(aY#-1.5)

         cZ# = Newzvalue(0,aY#-180,10)
         cX# = Newxvalue(0,aY#-180,10)

         POSITION CAMERA cX#,cY#,cZ#
         POINT CAMERA 0,0,0

RETURN

Thanks

"Begin at the beginning, and go on till you come to the end: then stop." - Lewis Carroll

Back to top

Profile PM Email Website

Bishop

21

Years of Service

User Offline

Joined: 18th Dec 2002

Location: In my favorite chair...

Posted: 26th Sep 2003 07:10

Link

i see what your saying, but why not use simpler commands? i don't know if it is what you want, but here it is anyway...

"When you were born, you cried and the world rejoiced. Live so when you die, the world cries and you rejoice."

Back to top

Profile PM Email

Damokles

21

Years of Service

User Offline

Joined: 28th May 2003

Location: Belgium

Posted: 26th Sep 2003 20:35

Link

Thanks, but in fact, it's for a game. and the cam will follow a certain object with the distance 10 (that's why Newzvalue(0,aY#-180,10)) and sometimes you can see this object from every side you want, into pushing up, down, right, left. And the object shall not turn in the scene, so the camera should move.

"Begin at the beginning, and go on till you come to the end: then stop." - Lewis Carroll

Back to top

Profile PM Email Website

Damokles

21

Years of Service

User Offline

Joined: 28th May 2003

Location: Belgium

Posted: 28th Sep 2003 12:43

Link

I simply want to mix these two codes :

+ Code Snippet

SYNC ON

MAKE OBJECT CUBE 1,1

Rem - Main Loop
REPEAT
     GOSUB MoveCam
     SYNC
UNTIL MOUSECLICK()=1

     DELETE OBJECT 1
     END

MoveCam:
          IF LEFTKEY()=1 THEN aY#=Wrapvalue(aY#+1.5)
          IF RIGHTKEY()=1 THEN aY#=Wrapvalue(aY#-1.5)

         cZ# = Newzvalue(0,aY#-180,10)
         cX# = Newxvalue(0,aY#-180,10)

         POSITION CAMERA cX#,cY#,cZ#
         POINT CAMERA 0,0,0

RETURN

and

+ Code Snippet

SYNC ON

MAKE OBJECT CUBE 1,1

Rem - Main Loop
REPEAT
     GOSUB MoveCam
     SYNC
UNTIL MOUSECLICK()=1

     DELETE OBJECT 1
     END

MoveCam:
          IF UPKEY()=1 THEN aZ#=Wrapvalue(aZ#+1.5)
          IF DOWNKEY()=1 THEN aZ#=Wrapvalue(aZ#-1.5)


         cX# = Newxvalue(0,aZ#-180,10)
         cY# = Newzvalue(0,aZ#-180,10)


         POSITION CAMERA cX#,cY#,cZ#
         POINT CAMERA 0,0,0

RETURN

When I do it, it doesn't work properly.
And there is a problem with the second one : when you press up or down too long, it stops, and turns in the wrong way

"Begin at the beginning, and go on till you come to the end: then stop." - Lewis Carroll

Back to top

Profile PM Email Website

Scorpyo

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: italy

Posted: 28th Sep 2003 18:05

Link

you have to wrap the value here too:

cX# = Newxvalue(0,aZ#-180,10)
cY# = Newzvalue(0,aZ#-180,10)

i.e. cX# = Newxvalue(0,(wrapvalue(aZ#-180),10)
or

aZ2# = wrapvalue(aZ#-180)
cX# = Newxvalue(0,aZ2#-180,10)
cY# = Newzvalue(0,aZ2#-180,10)

Back to top

Profile PM

Damokles

21

Years of Service

User Offline

Joined: 28th May 2003

Location: Belgium

Posted: 28th Sep 2003 19:29

Link

The problem remains

"Begin at the beginning, and go on till you come to the end: then stop." - Lewis Carroll

Back to top

Profile PM Email Website

Andrew

21

Years of Service

User Offline

Joined: 23rd Aug 2003

Location: United Kindom (what makes it important?)

Posted: 28th Sep 2003 19:36

Link

I see what you are going on about, you basicaly want the camera to follow the object movement.
So basically if the cubde moves, you want the camera to move with it.

Is this what you are saying because i can help?

My game will make sure Final Fantasy will never be forgotten.
Remember me because my game will be in the shops in a year or 2.

Back to top

Profile PM Email Website

Damokles

21

Years of Service

User Offline

Joined: 28th May 2003

Location: Belgium

Posted: 28th Sep 2003 20:12 Edited at: 28th Sep 2003 20:39

Link

Not really, I know how to make the camera follow the cube (even if it's not a cube in the game). I want to be able to turn the camera around that cube with the buttons left, right, up and down and the distance from the cube shall be 10.

Imagine that this cube is a house, and you want to see it from every side, also from below and from above, , so I have to turn the camera around it.

"Begin at the beginning, and go on till you come to the end: then stop." - Lewis Carroll

Back to top

Profile PM Email Website

Scorpyo

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: italy

Posted: 29th Sep 2003 23:03

Link

I have no time to code it..there is a recent post somewhere either here or at RGT forums about latitude / longitude coords of a point on a sphere..
I think that tweaking a bit that code and keeping the sphere radius to 10 and positioning the cam at the point on the sphere with your cube in the center of it could do the trick for you..
Sorry if i'm not helping much anyway
Cheers

Back to top

Profile PM

spooky

22

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 30th Sep 2003 03:35

Link

Probably a load of rubbish but try:

d#=50 : ` distance from house to camera
s#=0.5 : ` step size
h=100 : ` object number for hidden object
sync on : sync rate 0 : autocam off
make matrix 1,200,200,32,32
make object cube 1,10 : position object 1,100,5,100
make object cube 2,6 : position object 2,100,10,100 : rotate object 2,45,0,0
make object cube h,1 : hide object h : offset limb h,0,0,0,-d#
position object h,object position x(1),object position y(1),object position z(1)
move object h,-d#
do
   xa#=object angle x(h)
   if downkey() and (xa# < 90 or (xa# > (271 + s#)))
      move object h,d#
      xrotate object h,wrapvalue(xa#-s#)
      move object h,-d#
   endif
   if upkey() and ((xa# < (89.0-s#) and xa# >= 0) or xa# > 270)
      move object h,d#
      xrotate object h,wrapvalue(xa#+s#)
      move object h,-d#
   endif
   if rightkey()
      move object h,d#
      yrotate object h,wrapvalue(object angle y(h)-s#)
      move object h,-d#
   endif
   if leftkey()
      move object h,d#
      yrotate object h,wrapvalue(object angle y(h)+s#)
      move object h,-d#
   endif
   position camera object position x(h),object position y(h),object position z(h)
   point camera object position x(1),object position y(1),object position z(1)
   sync
loop

+ Code Snippet

d#=50 : ` distance from house to camera
s#=0.5 : ` step size
h=100 : ` object number for hidden object
sync on : sync rate 0 : autocam off
make matrix 1,200,200,32,32
make object cube 1,10 : position object 1,100,5,100
make object cube 2,6 : position object 2,100,10,100 : rotate object 2,45,0,0
make object cube h,1 : hide object h : offset limb h,0,0,0,-d#
position object h,object position x(1),object position y(1),object position z(1)
move object h,-d#
do
   xa#=object angle x(h)
   if downkey() and (xa# < 90 or (xa# > (271 + s#)))
      move object h,d#
      xrotate object h,wrapvalue(xa#-s#)
      move object h,-d#
   endif
   if upkey() and ((xa# < (89.0-s#) and xa# >= 0) or xa# > 270)
      move object h,d#
      xrotate object h,wrapvalue(xa#+s#)
      move object h,-d#
   endif
   if rightkey()
      move object h,d#
      yrotate object h,wrapvalue(object angle y(h)-s#)
      move object h,-d#
   endif
   if leftkey()
      move object h,d#
      yrotate object h,wrapvalue(object angle y(h)+s#)
      move object h,-d#
   endif
   position camera object position x(h),object position y(h),object position z(h)
   point camera object position x(1),object position y(1),object position z(1)
   sync
loop

If your mansion house needs haunting, just call Rentaghost!

Back to top

Profile PM Website

Damokles

21

Years of Service

User Offline

Joined: 28th May 2003

Location: Belgium

Posted: 30th Sep 2003 20:28 Edited at: 30th Sep 2003 21:18

Link

Thanks, Spooky, rubbish can be usefull sometimes

It's really near to what I was asking for, and you solved a problem, I didn't even think about : stopping the rotation when we're on the top or on the bottom (Or I would see the house upside down).

Just wondering if there is not an easier way to do it

"Begin at the beginning, and go on till you come to the end: then stop." - Lewis Carroll

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / camera movement