Camera Orientation -> Object linear Velocity

Author

Message

NatureGlass

15

Years of Service

User Offline

Joined: 13th Oct 2009

Location:

Posted: 21st Dec 2010 17:29 Edited at: 22nd Dec 2010 10:26

Link

Hi coders
I'm trying to understand the Maths of 3D World & i need some Help..

I have Camera Targeting a Ball with Physics,
i want to give phy linear velosity dipending from my Camera Orientation, how can i do that?
(Push forword away from the cam)

+ Code Snippet

do
	Text 10,10,"Velocity X: " + str$(PHY GET RIGID BODY LINEAR VELOCITY X(10))
	Text 10,20,"Velocity Y: " + str$(PHY GET RIGID BODY LINEAR VELOCITY Y(10))
	Text 10,30,"Velocity Z: " + str$(PHY GET RIGID BODY LINEAR VELOCITY Z(10))
	Text 10,0,"Mouse Rot: " + str$(cama#)
	
    rem Rotate camera around object
    cama#=wrapvalue(MouseX())
    position camera object position X(10)+cos(cama#)*65,object position Y(10)+40,object position Z(10)+sin(cama#)*65
    point camera object position X(10), object position Y(10)+25, object position Z(10)
	
	`														??????????????
	if mouseclick()=1 then phy set rigid body linear velocity 10,100,0,0
		
   	phy update
   	sync
loop

thanks

Attachments

Login to view attachments

Back to top

Profile PM

NatureGlass

15

Years of Service

User Offline

Joined: 13th Oct 2009

Location:

Posted: 22nd Dec 2010 10:33

Link

Hello Coders

I'm traing to understand the 3D World and i need some help
I have a Camera Following/Targeting a Ball and i want pressing the space to give phy linear velocity away from the camera orientation.

my code..

` Main Loop
do
if mouseclick()=1 then phy set rigid body linear velocity 10,50,0,50

`Rotate camera around Ball
cama#=wrapvalue(MouseX())
position camera object position X(10)+cos(cama#)*65,object position Y(10)+40,object position Z(10)+sin(cama#)*65
point camera object position X(10), object position Y(10)+25, object position Z(10)

phy update
sync
loop

Back to top

Profile PM

NatureGlass

15

Years of Service

User Offline

Joined: 13th Oct 2009

Location:

Posted: 22nd Dec 2010 10:35

Link

Hello Coders

I'm traing to understand the 3D World and i need some help
I have a Camera Following/Targeting a Ball and i want pressing the space to give phy linear velocity away from the camera orientation.

my code..

` Main Loop
do
if mouseclick()=1 then phy set rigid body linear velocity 10,50,0,50

`Rotate camera around Ball
cama#=wrapvalue(MouseX())
position camera object position X(10)+cos(cama#)*65,object position Y(10)+40,object position Z(10)+sin(cama#)*65
point camera object position X(10), object position Y(10)+25, object position Z(10)

phy update
sync
loop

Attachments

Login to view attachments

Back to top

Profile PM

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 22nd Dec 2010 14:50

Link

This code moves a sphere around dynamically. It uses the arrow keys for movement and if you press space it will jump. Hopefully, this will help you with moving the ball away from you.

Rem ***** Main Source File *****
rem basic things
phy start:sync on:sync rate 60:autocam off:backdrop on:color backdrop RGB(0,35,188):phy set gravity 0,-80,0
hide mouse
rem player
make object sphere 1,20
position object 1,0,40,0
phy make rigid body dynamic sphere 1
rem other objects (static)
make object box 2,1200,20,1200
color object 2,rgb(0,200,25)

make object cube 3,20

position object 2,0,-20,0
position object 3,0,0,50

for c=2 to 3
    phy make rigid body static box c
next c

jumping = 0
x# = object position x(1)
y# = object position y(1)
z# = object position z(1)
position camera x#,y# + 100,z# - 200
point camera x#,y#,z#
ink rgb(0,0,255),0
do
    phy add rigid body force 1,0,-5,0,2
    ax# = object angle x(1) : ay# = object angle y(1) : az# = object angle z(1)
    if upkey()=1
      xf# = 0.0  : zf# = 0.0
      xf# = newxvalue( xf#,Camy#,2.0)
      zf# = newzvalue( zf#,Camy#,2.0)
      phy add rigid body force 1,xf#,0,zf#,2
    endif
    if downkey() = 1
      xf# = 0.0  : zf# = 0.0
      xf# = newxvalue( xf#,Camy#,2.0)
      zf# = newzvalue( zf#,Camy#,2.0)
      phy add rigid body force 1,-xf#,0,-zf#,2
    endif
    if leftkey() = 1
       oay# = object angle y(1)
       velX# = phy get rigid body angular velocity x ( 1 )
       velY# = phy get rigid body angular velocity y ( 1 )
       velZ# = phy get rigid body angular velocity z ( 1 )
       if VelX# >= -20.0 and Velx# <= 20.0 then VelX# = newxvalue(VelX#,oay#,-0.25) :`VelX# - 2.0
       if Velz# >= -20.0 and Velz# <= 20.0 then Velz# = newzvalue(Velz#,oay#,0.25) :`VelX# - 2.0
       phy set rigid body angular velocity 1,VelX#,Vely#,Velz#
    endif
    if rightkey() = 1
       oay# = object angle y(1)
       velX# = phy get rigid body angular velocity x ( 1 )
       velY# = phy get rigid body angular velocity y ( 1 )
       velZ# = phy get rigid body angular velocity z ( 1 )
       if VelX# >= -20.0 and Velx# <= 20.0 then VelX# = newxvalue(VelX#,oay#,0.25) :`VelX# - 2.0
       if Velz# >= -20.0 and Velz# <= 20.0 then Velz# = newzvalue(Velz#,oay#,-0.25) :`VelX# - 2.0
       phy set rigid body angular velocity 1,VelX#,Vely#,Velz#
     endif
    if jumping = 1
      velY# = phy get rigid body linear velocity y ( 1 )
      if Vely# >= -0.5 and Vely# <= 0.5 then jumping = 0
    endif
    if spacekey() = 1 and jumping = 0
      jumping = 1
      phy add rigid body force 1,0,150,0,2
    endif
    ` check to see if it is still jumping
    text 10,200,"jumping = " + str$(jumping)
    phy update
sync
loop

+ Code Snippet

Rem ***** Main Source File *****
rem basic things
phy start:sync on:sync rate 60:autocam off:backdrop on:color backdrop RGB(0,35,188):phy set gravity 0,-80,0
hide mouse
rem player
make object sphere 1,20
position object 1,0,40,0
phy make rigid body dynamic sphere 1
rem other objects (static)
make object box 2,1200,20,1200
color object 2,rgb(0,200,25)

make object cube 3,20

position object 2,0,-20,0
position object 3,0,0,50

for c=2 to 3
    phy make rigid body static box c
next c

jumping = 0
x# = object position x(1)
y# = object position y(1)
z# = object position z(1)
position camera x#,y# + 100,z# - 200
point camera x#,y#,z#
ink rgb(0,0,255),0
do
    phy add rigid body force 1,0,-5,0,2
    ax# = object angle x(1) : ay# = object angle y(1) : az# = object angle z(1)
    if upkey()=1
      xf# = 0.0  : zf# = 0.0
      xf# = newxvalue( xf#,Camy#,2.0)
      zf# = newzvalue( zf#,Camy#,2.0)
      phy add rigid body force 1,xf#,0,zf#,2
    endif
    if downkey() = 1
      xf# = 0.0  : zf# = 0.0
      xf# = newxvalue( xf#,Camy#,2.0)
      zf# = newzvalue( zf#,Camy#,2.0)
      phy add rigid body force 1,-xf#,0,-zf#,2
    endif
    if leftkey() = 1
       oay# = object angle y(1)
       velX# = phy get rigid body angular velocity x ( 1 )
       velY# = phy get rigid body angular velocity y ( 1 )
       velZ# = phy get rigid body angular velocity z ( 1 )
       if VelX# >= -20.0 and Velx# <= 20.0 then VelX# = newxvalue(VelX#,oay#,-0.25) :`VelX# - 2.0
       if Velz# >= -20.0 and Velz# <= 20.0 then Velz# = newzvalue(Velz#,oay#,0.25) :`VelX# - 2.0
       phy set rigid body angular velocity 1,VelX#,Vely#,Velz#
    endif
    if rightkey() = 1
       oay# = object angle y(1)
       velX# = phy get rigid body angular velocity x ( 1 )
       velY# = phy get rigid body angular velocity y ( 1 )
       velZ# = phy get rigid body angular velocity z ( 1 )
       if VelX# >= -20.0 and Velx# <= 20.0 then VelX# = newxvalue(VelX#,oay#,0.25) :`VelX# - 2.0
       if Velz# >= -20.0 and Velz# <= 20.0 then Velz# = newzvalue(Velz#,oay#,-0.25) :`VelX# - 2.0
       phy set rigid body angular velocity 1,VelX#,Vely#,Velz#
     endif
    if jumping = 1
      velY# = phy get rigid body linear velocity y ( 1 )
      if Vely# >= -0.5 and Vely# <= 0.5 then jumping = 0
    endif
    if spacekey() = 1 and jumping = 0
      jumping = 1
      phy add rigid body force 1,0,150,0,2
    endif
    ` check to see if it is still jumping
    text 10,200,"jumping = " + str$(jumping)
    phy update
sync
loop

Back to top

Profile PM Email

DVader

20

Years of Service

User Offline

Joined: 28th Jan 2004

Location:

Posted: 22nd Dec 2010 17:49 Edited at: 22nd Dec 2010 18:42

Link

LBFN - Exactly what I need! Like the code, was just in the middle of changing my game controls to work better, as my old ones worked ok, but the ball stopped rotating when I moved around. Only spinning when letting go of the keys. you have saved me a fair bit of time there! Many thanks! Plopped it into my game instead of my old routine and worked like a charm! Just need to give it a bit more speed now

I was thinking of rotating the whole level to make the ball move, but this is a little less intensive and helps keep speed up!

Edit - Having more trouble than I anticipated. I can speed up the up and down key movement easily enough. The left and right however, doesn't seem to alter whatever I change the step value to or increasing the velx# and velz# =<20 check value up for down.. I'm missing something silly lol.

http://s6.bitefight.org/c.php?uid=103081

Back to top

Profile PM Website

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 23rd Dec 2010 12:31 Edited at: 24th Dec 2010 16:13

Link

Hey DVader,

Glad it was of some help to you.

I don't think you are missing something silly, as I tried to quickly alter it to work like you are wanting and got the same results. I will be busy at work the rest of the day, unfortunately. I plan to take another look at it tomorrow to see if I can solve it. If you figure it out in the meantime, please let me know.

EDIT: Worked on it some today. It is going to take some experimentation to figure this out.

Back to top

Profile PM Email

DVader

20

Years of Service

User Offline

Joined: 28th Jan 2004

Location:

Posted: 24th Dec 2010 21:34

Link

Got a solution a fellow coder suggested. Obvious really, and I should have tried it earlier, rather than banging my head getting the existing code to work.

+ Code Snippet

if leftkey() = 1
      xf# = 0.0  : zf# = 0.0
      xf# = newxvalue( xf#,wrapvalue(Camy#+90),8.0)
      zf# = newzvalue( zf#,wrapvalue(Camy#+90),8.0)
      phy add rigid body force 100,-xf#,0,-zf#,2
    endif
    
    if rightkey() = 1
      xf# = 0.0  : zf# = 0.0
      xf# = newxvalue( xf#,wrapvalue(Camy#-90),8.0)
      zf# = newzvalue( zf#,wrapvalue(Camy#-90),8.0)
      phy add rigid body force 100,-xf#,0,-zf#,2
    endif

That uses the same structure as the first code and works just as well. Not sure why the method was changed for left and right originally, but for my needs this works perfectly.

http://s6.bitefight.org/c.php?uid=103081

Back to top

Profile PM Website

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 25th Dec 2010 02:17

Link

As I recall, I could not get something similar to what you posted to work, so I changed it. Anyway, thanks for sharing.

Back to top

Profile PM Email

DVader

20

Years of Service

User Offline

Joined: 28th Jan 2004

Location:

Posted: 25th Dec 2010 22:43

Link

No probs, works ok for me anyway. Probably left the step value a little high, but I wanted to test speedy lol.

http://s6.bitefight.org/c.php?uid=103081

Back to top

Profile PM Website

gwheycs62egydws

15

Years of Service

User Offline

Joined: 17th Aug 2009

Location: The World

Posted: 7th Mar 2011 20:39

Link

umm the code LBFN wrote worked fine for me
but when I added in what DVader programed
I could not move right or left any more

that's the end of thought for this

If a thought is Just a thought ~ so whats the main thought ?

Back to top

Profile PM Email

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 7th Mar 2011 21:03

Link

It works fine for me. I changed DVader's rigid body ID number back to 1 instead of 100.

Back to top

Profile PM Email

gwheycs62egydws

15

Years of Service

User Offline

Joined: 17th Aug 2009

Location: The World

Posted: 7th Mar 2011 21:08

Link

ahh ok thanks LBFN

If a thought is Just a thought ~ so whats the main thought ?

Back to top

Profile PM Email

gwheycs62egydws

15

Years of Service

User Offline

Joined: 17th Aug 2009

Location: The World

Posted: 7th Mar 2011 22:45 Edited at: 7th Mar 2011 22:46

Link

for any one else showing up this is the complected file

Rem ***** Main Source File *****
rem basic things
phy start:sync on:sync rate 60:autocam off:backdrop on
color backdrop RGB(0,35,188):phy set gravity 0,-80,0
hide mouse
rem player
make object sphere 1,20
position object 1,0,40,0
phy make rigid body dynamic sphere 1
rem other objects (static)
make object box 2,1200,20,1200
color object 2,rgb(0,200,25)

make object cube 3,20

position object 2,0,-20,0
position object 3,0,0,50

for c=2 to 3
    phy make rigid body static box c
next c

jumping = 0
x# = object position x(1)
y# = object position y(1)
z# = object position z(1)
position camera x#,y# + 100,z# - 200
point camera x#,y#,z#
ink rgb(0,0,255),0
do
    phy add rigid body force 1,0,-5,0,2
    ax# = object angle x(1) : ay# = object angle y(1) : az# = object angle z(1)
    if upkey()=1
      xf# = 0.0  : zf# = 0.0
      xf# = newxvalue( xf#,Camy#,2.0)
      zf# = newzvalue( zf#,Camy#,2.0)
      phy add rigid body force 1,xf#,0,zf#,2
    endif
    if downkey() = 1
      xf# = 0.0  : zf# = 0.0
      xf# = newxvalue( xf#,Camy#,2.0)
      zf# = newzvalue( zf#,Camy#,2.0)
      phy add rigid body force 1,-xf#,0,-zf#,2
    endif
   if leftkey() = 1
      xf# = 0.0  : zf# = 0.0
      xf# = newxvalue( xf#,wrapvalue(Camy#+90),8.0)
      zf# = newzvalue( zf#,wrapvalue(Camy#+90),8.0)
      phy add rigid body force 1,-xf#,0,-zf#,2
    endif
    
    if rightkey() = 1
      xf# = 0.0  : zf# = 0.0
      xf# = newxvalue( xf#,wrapvalue(Camy#-90),8.0)
      zf# = newzvalue( zf#,wrapvalue(Camy#-90),8.0)
      phy add rigid body force 1,-xf#,0,-zf#,2
    endif

if jumping = 1
      velY# = phy get rigid body linear velocity y ( 1 )
      if Vely# >= -0.5 and Vely# <= 0.5 then jumping = 0
    endif
    if spacekey() = 1 and jumping = 0
      jumping = 1
      phy add rigid body force 1,0,150,0,2
    endif
    ` check to see if it is still jumping
    text 10,200,"jumping = " + str$(jumping)
    phy update
sync
loop

+ Code Snippet

Rem ***** Main Source File *****
rem basic things
phy start:sync on:sync rate 60:autocam off:backdrop on
color backdrop RGB(0,35,188):phy set gravity 0,-80,0
hide mouse
rem player
make object sphere 1,20
position object 1,0,40,0
phy make rigid body dynamic sphere 1
rem other objects (static)
make object box 2,1200,20,1200
color object 2,rgb(0,200,25)

make object cube 3,20

position object 2,0,-20,0
position object 3,0,0,50

for c=2 to 3
    phy make rigid body static box c
next c

jumping = 0
x# = object position x(1)
y# = object position y(1)
z# = object position z(1)
position camera x#,y# + 100,z# - 200
point camera x#,y#,z#
ink rgb(0,0,255),0
do
    phy add rigid body force 1,0,-5,0,2
    ax# = object angle x(1) : ay# = object angle y(1) : az# = object angle z(1)
    if upkey()=1
      xf# = 0.0  : zf# = 0.0
      xf# = newxvalue( xf#,Camy#,2.0)
      zf# = newzvalue( zf#,Camy#,2.0)
      phy add rigid body force 1,xf#,0,zf#,2
    endif
    if downkey() = 1
      xf# = 0.0  : zf# = 0.0
      xf# = newxvalue( xf#,Camy#,2.0)
      zf# = newzvalue( zf#,Camy#,2.0)
      phy add rigid body force 1,-xf#,0,-zf#,2
    endif
   if leftkey() = 1
      xf# = 0.0  : zf# = 0.0
      xf# = newxvalue( xf#,wrapvalue(Camy#+90),8.0)
      zf# = newzvalue( zf#,wrapvalue(Camy#+90),8.0)
      phy add rigid body force 1,-xf#,0,-zf#,2
    endif
    
    if rightkey() = 1
      xf# = 0.0  : zf# = 0.0
      xf# = newxvalue( xf#,wrapvalue(Camy#-90),8.0)
      zf# = newzvalue( zf#,wrapvalue(Camy#-90),8.0)
      phy add rigid body force 1,-xf#,0,-zf#,2
    endif

    if jumping = 1
      velY# = phy get rigid body linear velocity y ( 1 )
      if Vely# >= -0.5 and Vely# <= 0.5 then jumping = 0
    endif
    if spacekey() = 1 and jumping = 0
      jumping = 1
      phy add rigid body force 1,0,150,0,2
    endif
    ` check to see if it is still jumping
    text 10,200,"jumping = " + str$(jumping)
    phy update
sync
loop

If a thought is Just a thought ~ so whats the main thought ?

Back to top

Profile PM Email

Sorry your browser is not supported!

Dark Physics & Dark A.I. & Dark Dynamix / Camera Orientation -> Object linear Velocity

Attachments

Attachments

Sorry your browser is not supported!

Dark Physics & Dark A.I. & Dark Dynamix / Camera Orientation -&gt; Object linear Velocity

Attachments

Attachments

Dark Physics & Dark A.I. & Dark Dynamix / Camera Orientation -> Object linear Velocity