need help with linear velocity / collisions

Author

Message

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 9th Oct 2008 20:07

Link

need some help here with collisions, in my code and I can`t get my head around it dose any one know about physic collisions?

plus is my code right? I used this line here SPA(c).covx# = CURVEVALUE(PHY GET RIGID BODY linear VELOCITY X (c),SPA(c).wvoax#,0.5) and need to know if I`m being a bit rubbish or not?

here is the code

+ Code Snippet

         SPA(c).covx# = CURVEVALUE(PHY GET RIGID BODY linear VELOCITY X (c),SPA(c).wvoax#,0.5) :`change to sute
         SPA(c).covy# = CURVEVALUE(PHY GET RIGID BODY linear VELOCITY y (c),SPA(c).wvoay#,0.5)
         SPA(c).covz# = CURVEVALUE(PHY GET RIGID BODY linear VELOCITY z (c),SPA(c).wvoaz#,0.5)
         if phy get collision data ( )
            SPA(c).col1 = phy get collision object a ( )
            SPA(c).col2 = phy get collision object b ( )
            if SPA(c).col1 = c or SPA(c).col2 = c
               phy set rigid body linear velocity c,SPA(c).covx#,SPA(c).covy#,SPA(c).covz#
               color object c,rgb(0,255,0)
               set cursor 0,100 : print "collision ";c
               else
               color object c,rgb(255,0,0)
            endif
         endif

soul sucking devils, twisted body of the damed, slivering slim drips from every poor, sin licking at your ears, and the smell stinging your eyes, and if you don't like it, get out of my kitchen!

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 9th Oct 2008 20:31

Link

this is how I use curevalue.

+ Code Snippet

newforcemax#=curvevalue(here.theforce,lastforcemax#,2.5)

rotate limb force_pointer_max,1,0,0,(-newforcemax#*fcal#)

lastforcemax#=newforcemax#

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 9th Oct 2008 20:58

Link

HowDo how is your spining top going?

soul sucking devils, twisted body of the damed, slivering slim drips from every poor, sin licking at your ears, and the smell stinging your eyes, and if you don't like it, get out of my kitchen!

Back to top

Profile PM Email Website

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 10th Oct 2008 00:30 Edited at: 11th Oct 2008 20:51

Link

how do I get 1000 object to collide and give feed back from each collision?

I need to fix this SPA(c).col1 = c or SPA(c).col2 = c so that all object change colour when a collision takes place

here is the code I`ve used so far, how do I fix this?

sync on : sync rate 60

phy start

autocam off
rotate camera 45,0,0
position camera 0,0,-20

type spin_top
col1 as Integer
col2 as Integer
endtype
dim SPA(1000) as spin_top

for c = 1 to 1000
   make object cube c,1
   position object c,rnd(20)-rnd(20),rnd(20)-rnd(20),rnd(20)-rnd(20)
   color object c,rgb(255,0,0)
   phy make rigid body dynamic box c
next c

make object cube 1001,1
scale object 1001,10000,10,10000
position object 1001,0,-30,0
phy make rigid body static box 1001

ink rgb(0,0,0),0
do

for c = 1 to 1000
         while phy get collision data ( )
            SPA(c).col1 = phy get collision object a ( )
            SPA(c).col2 = phy get collision object b ( )
            if SPA(c).col1 = c or SPA(c).col2 = c :`HERE IS WHERE I NEED HELP
               color object c,rgb(0,255,0)
               set cursor 0,100 : print "collision ";c
               else
               color object c,rgb(255,0,0)
            endif
      set cursor 0,60 : print "collision A: ";SPA(c).col1
      set cursor 0,80 : print "collision B: ";SPA(c).col2
         endwhile
next c

phy update
sync
loop

+ Code Snippet

sync on : sync rate 60

phy start

autocam off
rotate camera 45,0,0
position camera 0,0,-20

type spin_top
col1 as Integer
col2 as Integer
endtype
dim SPA(1000) as spin_top

for c = 1 to 1000
   make object cube c,1
   position object c,rnd(20)-rnd(20),rnd(20)-rnd(20),rnd(20)-rnd(20)
   color object c,rgb(255,0,0)
   phy make rigid body dynamic box c
next c

make object cube 1001,1
scale object 1001,10000,10,10000
position object 1001,0,-30,0
phy make rigid body static box 1001

ink rgb(0,0,0),0
do

for c = 1 to 1000
         while phy get collision data ( )
            SPA(c).col1 = phy get collision object a ( )
            SPA(c).col2 = phy get collision object b ( )
            if SPA(c).col1 = c or SPA(c).col2 = c :`HERE IS WHERE I NEED HELP
               color object c,rgb(0,255,0)
               set cursor 0,100 : print "collision ";c
               else
               color object c,rgb(255,0,0)
            endif
      set cursor 0,60 : print "collision A: ";SPA(c).col1
      set cursor 0,80 : print "collision B: ";SPA(c).col2
         endwhile
next c

phy update
sync
loop

thanks in advance

Edit

I got the collisions to work like a dream here is the code

sync on : sync rate 60
set display mode 1280,800,32
backdrop on
color backdrop rgb(255,255,255)
autocam off
rotate camera 45,0,0
position camera 0,0,-40

phy start

type spin_top
col1 as Integer
endtype
dim SPA(10000) as spin_top

for c = 1 to 1000
   make object cube c,1
   position object c,rnd(20)-rnd(20),rnd(20)-rnd(20),rnd(20)-rnd(20)
   color object c,rgb(255,0,0)
   phy make rigid body dynamic box c
next c

make object cube 1001,1
scale object 1001,10000,10,10000
position object 1001,0,-30,0
hide object 1001
phy make rigid body static box 1001

ink rgb(0,0,0),0

do
set cursor 0,0 : print "FPS: ";screen fps()
set cursor 0,20 : print "Press space bar to re-set"
set cursor 0,40 : print "Press P key to pause physic"

gosub collisions

gosub camera

gosub physic_pause

sync
loop

`*******************************************************************************************************
`********************************((( here is the collision code ))**************************************
`*******************************************************************************************************

collisions:
for c = 1 to 1000
    while phy get collision data ( )
      a = phy get collision object a ( )
      b = phy get collision object b ( )
      if a > 0 and b > 0 and a < 1001 and b < 1001 and (SPA(a).col1 = 0 or SPA(b).col1 = 0)
         color object a,rgb(0,255,0)
         color object b,rgb(0,0,255)
         SPA(a).col1 = 1
         SPA(b).col1 = 1
      else
         color object c,rgb(255,0,0)
         SPA(a).col1 = 0
         SPA(b).col1 = 0
      endif
    endwhile

if spacekey()=1
      color object c,rgb(255,0,0)
      phy set rigid body position c,rnd(20)-rnd(20),rnd(20)-rnd(20),rnd(20)-rnd(20)
      phy set rigid body rotation c,0,0,0
   endif
next c
return

`*******************************************************************************************************
`*******************************((( here is the pause physic code ))************************************
`*******************************************************************************************************

physic_pause:
      if keystate(25) = 1 and pause = 0 then pause = 1
      if pause = 1
      set cursor screen width()/2.25,screen height()/2.25 :print "Physic Paused"
         inc count
         if count >= 25
            if keystate(25) = 1 then pause = 0
         endif
      else
         count = 0
         phy update
      endif
return

`*******************************************************************************************************
`*******************************((( here is the mad camera contol ))************************************
`*******************************************************************************************************

camera:
   c# = wrapvalue( c# + 0.5 )
   x# = cos ( c# ) * 40.0
   z# = sin ( c# ) * 40.0
   position camera x#, x#, z#
   point camera 0.0,-20,0.0
return

+ Code Snippet

sync on : sync rate 60
set display mode 1280,800,32
backdrop on
color backdrop rgb(255,255,255)
autocam off
rotate camera 45,0,0
position camera 0,0,-40

phy start

type spin_top
col1 as Integer
endtype
dim SPA(10000) as spin_top

for c = 1 to 1000
   make object cube c,1
   position object c,rnd(20)-rnd(20),rnd(20)-rnd(20),rnd(20)-rnd(20)
   color object c,rgb(255,0,0)
   phy make rigid body dynamic box c
next c

make object cube 1001,1
scale object 1001,10000,10,10000
position object 1001,0,-30,0
hide object 1001
phy make rigid body static box 1001

ink rgb(0,0,0),0

do
set cursor 0,0 : print "FPS: ";screen fps()
set cursor 0,20 : print "Press space bar to re-set"
set cursor 0,40 : print "Press P key to pause physic"

gosub collisions

gosub camera

gosub physic_pause

sync
loop

`*******************************************************************************************************
`********************************((( here is the collision code ))**************************************
`*******************************************************************************************************

collisions:
for c = 1 to 1000
    while phy get collision data ( )
      a = phy get collision object a ( )
      b = phy get collision object b ( )
      if a > 0 and b > 0 and a < 1001 and b < 1001 and (SPA(a).col1 = 0 or SPA(b).col1 = 0)
         color object a,rgb(0,255,0)
         color object b,rgb(0,0,255)
         SPA(a).col1 = 1
         SPA(b).col1 = 1
      else
         color object c,rgb(255,0,0)
         SPA(a).col1 = 0
         SPA(b).col1 = 0
      endif
    endwhile

   if spacekey()=1
      color object c,rgb(255,0,0)
      phy set rigid body position c,rnd(20)-rnd(20),rnd(20)-rnd(20),rnd(20)-rnd(20)
      phy set rigid body rotation c,0,0,0
   endif
next c
return

`*******************************************************************************************************
`*******************************((( here is the pause physic code ))************************************
`*******************************************************************************************************

physic_pause:
      if keystate(25) = 1 and pause = 0 then pause = 1
      if pause = 1
      set cursor screen width()/2.25,screen height()/2.25 :print "Physic Paused"
         inc count
         if count >= 25
            if keystate(25) = 1 then pause = 0
         endif
      else
         count = 0
         phy update
      endif
return

`*******************************************************************************************************
`*******************************((( here is the mad camera contol ))************************************
`*******************************************************************************************************

camera:
   c# = wrapvalue( c# + 0.5 )
   x# = cos ( c# ) * 40.0
   z# = sin ( c# ) * 40.0
   position camera x#, x#, z#
   point camera 0.0,-20,0.0
return

soul sucking devils, twisted body of the damed, slivering slim drips from every poor, sin licking at your ears, and the smell stinging your eyes, and if you don't like it, get out of my kitchen!

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 10th Oct 2008 18:32

Link

read the physx information chm bit on doing collisions, has as bit on how to check for many objects.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 11th Oct 2008 21:15 Edited at: 11th Oct 2008 23:53

Link

I got the collisions to work like a dream here is the code with 1000 object on the go.

sync on : sync rate 60
set display mode 1280,800,32
backdrop on
color backdrop rgb(255,255,255)
autocam off
rotate camera 45,0,0
position camera 0,0,-40

phy start

type spin_top
col1 as Integer
endtype
dim SPA(10000) as spin_top

for c = 1 to 1000
   make object cube c,1
   position object c,rnd(20)-rnd(20),rnd(20)-rnd(20),rnd(20)-rnd(20)
   color object c,rgb(255,0,0)
   phy make rigid body dynamic box c
next c

make object cube 1001,1
scale object 1001,10000,10,10000
position object 1001,0,-30,0
hide object 1001
phy make rigid body static box 1001

ink rgb(0,0,0),0

do
set cursor 0,0 : print "FPS: ";screen fps()
set cursor 0,20 : print "Press space bar to re-set"
set cursor 0,40 : print "Press P key to pause physic"

gosub collisions

gosub camera

gosub physic_pause

sync
loop

`*******************************************************************************************************
`********************************((( here is the collision code ))**************************************
`*******************************************************************************************************

collisions:
for c = 1 to 1000
    while phy get collision data ( )
      a = phy get collision object a ( )
      b = phy get collision object b ( )
      if a > 0 and b > 0 and a < 1001 and b < 1001 and (SPA(a).col1 = 0 or SPA(b).col1 = 0)
         color object a,rgb(0,255,0)
         color object b,rgb(0,0,255)
         SPA(a).col1 = 1
         SPA(b).col1 = 1
      else
         color object c,rgb(255,0,0)
         SPA(a).col1 = 0
         SPA(b).col1 = 0
      endif
    endwhile

if spacekey()=1
      color object c,rgb(255,0,0)
      phy set rigid body position c,rnd(20)-rnd(20),rnd(20)-rnd(20),rnd(20)-rnd(20)
      phy set rigid body rotation c,0,0,0
   endif
next c
return

`*******************************************************************************************************
`*******************************((( here is the pause physic code ))************************************
`*******************************************************************************************************

physic_pause:
      if keystate(25) = 1 and pause = 0 then pause = 1
      if pause = 1
      set cursor screen width()/2.25,screen height()/2.25 :print "Physic Paused"
         inc count
         if count >= 25
            if keystate(25) = 1 then pause = 0
         endif
      else
         count = 0
         phy update
      endif
return

`*******************************************************************************************************
`*******************************((( here is the mad camera contol ))************************************
`*******************************************************************************************************

camera:
   c# = wrapvalue( c# + 0.5 )
   x# = cos ( c# ) * 40.0
   z# = sin ( c# ) * 40.0
   position camera x#, x#, z#
   point camera 0.0,-20,0.0
return

+ Code Snippet

sync on : sync rate 60
set display mode 1280,800,32
backdrop on
color backdrop rgb(255,255,255)
autocam off
rotate camera 45,0,0
position camera 0,0,-40

phy start

type spin_top
col1 as Integer
endtype
dim SPA(10000) as spin_top

for c = 1 to 1000
   make object cube c,1
   position object c,rnd(20)-rnd(20),rnd(20)-rnd(20),rnd(20)-rnd(20)
   color object c,rgb(255,0,0)
   phy make rigid body dynamic box c
next c

make object cube 1001,1
scale object 1001,10000,10,10000
position object 1001,0,-30,0
hide object 1001
phy make rigid body static box 1001

ink rgb(0,0,0),0

do
set cursor 0,0 : print "FPS: ";screen fps()
set cursor 0,20 : print "Press space bar to re-set"
set cursor 0,40 : print "Press P key to pause physic"

gosub collisions

gosub camera

gosub physic_pause

sync
loop

`*******************************************************************************************************
`********************************((( here is the collision code ))**************************************
`*******************************************************************************************************

collisions:
for c = 1 to 1000
    while phy get collision data ( )
      a = phy get collision object a ( )
      b = phy get collision object b ( )
      if a > 0 and b > 0 and a < 1001 and b < 1001 and (SPA(a).col1 = 0 or SPA(b).col1 = 0)
         color object a,rgb(0,255,0)
         color object b,rgb(0,0,255)
         SPA(a).col1 = 1
         SPA(b).col1 = 1
      else
         color object c,rgb(255,0,0)
         SPA(a).col1 = 0
         SPA(b).col1 = 0
      endif
    endwhile

   if spacekey()=1
      color object c,rgb(255,0,0)
      phy set rigid body position c,rnd(20)-rnd(20),rnd(20)-rnd(20),rnd(20)-rnd(20)
      phy set rigid body rotation c,0,0,0
   endif
next c
return

`*******************************************************************************************************
`*******************************((( here is the pause physic code ))************************************
`*******************************************************************************************************

physic_pause:
      if keystate(25) = 1 and pause = 0 then pause = 1
      if pause = 1
      set cursor screen width()/2.25,screen height()/2.25 :print "Physic Paused"
         inc count
         if count >= 25
            if keystate(25) = 1 then pause = 0
         endif
      else
         count = 0
         phy update
      endif
return

`*******************************************************************************************************
`*******************************((( here is the mad camera contol ))************************************
`*******************************************************************************************************

camera:
   c# = wrapvalue( c# + 0.5 )
   x# = cos ( c# ) * 40.0
   z# = sin ( c# ) * 40.0
   position camera x#, x#, z#
   point camera 0.0,-20,0.0
return

soul sucking devils, twisted body of the damed, slivering slim drips from every poor, sin licking at your ears, and the smell stinging your eyes, and if you don't like it, get out of my kitchen!

Back to top

Profile PM Email Website

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 12th Oct 2008 18:27

Link

just add some new code above to my last post and thort that I would say be cos I did it as and edit of an old post, and it dose not appear as a new post.

1000 collisions work now with an array you can use it any way you wont, hope this helps out some one.

let me know what you think of this showcase program for multipal collisions, would it make a good help file? and if you use it what did you use it for?

if any one has a way of making it better then let me know and I`ll add it, a bit of code posted would help to.

soul sucking devils, twisted body of the damed, slivering slim drips from every poor, sin licking at your ears, and the smell stinging your eyes, and if you don't like it, get out of my kitchen!

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 12th Oct 2008 18:39

Link

Just thought I give it back to you with the for next re set loop put in the another place, and see how much faster it is, now its not doing a 1000,s loops each loop.

Rem ***** Main Source File *****
sync on : sync rate 60
`set display mode 1280,800,32
backdrop on
color backdrop rgb(255,255,255)
autocam off
rotate camera 45,0,0
position camera 0,0,-40

phy start

type spin_top
col1 as Integer
endtype
dim SPA(10000) as spin_top

for c = 1 to 1000
   make object cube c,1
   position object c,rnd(20)-rnd(20),rnd(20)-rnd(20),rnd(20)-rnd(20)
   color object c,rgb(255,0,0)
   phy make rigid body dynamic box c
next c

make object cube 1001,1
scale object 1001,10000,10,10000
position object 1001,0,-30,0
hide object 1001
phy make rigid body static box 1001

ink rgb(0,0,0),0

do
set cursor 0,0 : print "FPS: ";screen fps()
set cursor 0,20 : print "Press space bar to re-set"
set cursor 0,40 : print "Press P key to pause physic"

gosub collisions

gosub camera

gosub physic_pause
if spacekey()=1
   for c = 1 to 1000
      color object c,rgb(255,0,0)
      phy set rigid body position c,rnd(20)-rnd(20),rnd(20)-rnd(20),rnd(20)-rnd(20)
      phy set rigid body rotation c,0,0,0
   next c
endif
sync
loop

`*******************************************************************************************************
`********************************((( here is the collision code ))**************************************
`*******************************************************************************************************

collisions:
`for c = 1 to 1000
    while phy get collision data ( )
      a = phy get collision object a ( )
      b = phy get collision object b ( )
      if a > 0 and b > 0 and a < 1001 and b < 1001 and (SPA(a).col1 = 0 or SPA(b).col1 = 0)
         color object a,rgb(0,255,0)
         color object b,rgb(0,0,255)
         SPA(a).col1 = 1
         SPA(b).col1 = 1
      else
         color object c,rgb(255,0,0)
         SPA(a).col1 = 0
         SPA(b).col1 = 0
      endif
    endwhile

`next c
return

`*******************************************************************************************************
`*******************************((( here is the pause physic code ))************************************
`*******************************************************************************************************

physic_pause:
      if keystate(25) = 1 and pause = 0 then pause = 1
      if pause = 1
      set cursor screen width()/2.25,screen height()/2.25 :print "Physic Paused"
         inc count
         if count >= 25
            if keystate(25) = 1 then pause = 0
         endif
      else
         count = 0
         phy update
      endif
return

`*******************************************************************************************************
`*******************************((( here is the mad camera contol ))************************************
`*******************************************************************************************************

camera:
   c# = wrapvalue( c# + 0.5 )
   x# = cos ( c# ) * 40.0
   z# = sin ( c# ) * 40.0
   position camera x#, x#, z#
   point camera 0.0,-20,0.0
return

+ Code Snippet

Rem ***** Main Source File *****
sync on : sync rate 60
`set display mode 1280,800,32
backdrop on
color backdrop rgb(255,255,255)
autocam off
rotate camera 45,0,0
position camera 0,0,-40

phy start

type spin_top
col1 as Integer
endtype
dim SPA(10000) as spin_top

for c = 1 to 1000
   make object cube c,1
   position object c,rnd(20)-rnd(20),rnd(20)-rnd(20),rnd(20)-rnd(20)
   color object c,rgb(255,0,0)
   phy make rigid body dynamic box c
next c

make object cube 1001,1
scale object 1001,10000,10,10000
position object 1001,0,-30,0
hide object 1001
phy make rigid body static box 1001

ink rgb(0,0,0),0

do
set cursor 0,0 : print "FPS: ";screen fps()
set cursor 0,20 : print "Press space bar to re-set"
set cursor 0,40 : print "Press P key to pause physic"

gosub collisions

gosub camera

gosub physic_pause
if spacekey()=1
   for c = 1 to 1000
      color object c,rgb(255,0,0)
      phy set rigid body position c,rnd(20)-rnd(20),rnd(20)-rnd(20),rnd(20)-rnd(20)
      phy set rigid body rotation c,0,0,0
   next c
endif
sync
loop

`*******************************************************************************************************
`********************************((( here is the collision code ))**************************************
`*******************************************************************************************************

collisions:
`for c = 1 to 1000
    while phy get collision data ( )
      a = phy get collision object a ( )
      b = phy get collision object b ( )
      if a > 0 and b > 0 and a < 1001 and b < 1001 and (SPA(a).col1 = 0 or SPA(b).col1 = 0)
         color object a,rgb(0,255,0)
         color object b,rgb(0,0,255)
         SPA(a).col1 = 1
         SPA(b).col1 = 1
      else
         color object c,rgb(255,0,0)
         SPA(a).col1 = 0
         SPA(b).col1 = 0
      endif
    endwhile


`next c
return

`*******************************************************************************************************
`*******************************((( here is the pause physic code ))************************************
`*******************************************************************************************************

physic_pause:
      if keystate(25) = 1 and pause = 0 then pause = 1
      if pause = 1
      set cursor screen width()/2.25,screen height()/2.25 :print "Physic Paused"
         inc count
         if count >= 25
            if keystate(25) = 1 then pause = 0
         endif
      else
         count = 0
         phy update
      endif
return

`*******************************************************************************************************
`*******************************((( here is the mad camera contol ))************************************
`*******************************************************************************************************

camera:
   c# = wrapvalue( c# + 0.5 )
   x# = cos ( c# ) * 40.0
   z# = sin ( c# ) * 40.0
   position camera x#, x#, z#
   point camera 0.0,-20,0.0
return

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 12th Oct 2008 18:51

Link

yer I did it again I keep fogeting to delete things like that, thanks HowDo

soul sucking devils, twisted body of the damed, slivering slim drips from every poor, sin licking at your ears, and the smell stinging your eyes, and if you don't like it, get out of my kitchen!

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 12th Oct 2008 18:56 Edited at: 12th Oct 2008 19:06

Link

change this

if a > 0 and b > 0 and a < 1001 and b < 1001 and (SPA(a).col1 = 0 or SPA(b).col1 = 0)

to

if a > 0 and b < 1001

change a bit more removed things that did not seam to do anything .

Rem ***** Main Source File *****
sync on : sync rate 60
`set display mode 1280,800,32
backdrop on
color backdrop rgb(255,255,255)
autocam off
rotate camera 45,0,0
position camera 0,0,-40

phy start

for c = 1 to 1000
   make object cube c,1
   position object c,rnd(20)-rnd(20),rnd(20)-rnd(20),rnd(20)-rnd(20)
   color object c,rgb(255,0,0)
   phy make rigid body dynamic box c
next c

make object cube 1001,1
scale object 1001,10000,10,10000
position object 1001,0,-30,0
hide object 1001
phy make rigid body static box 1001

ink rgb(0,0,0),0

do
set cursor 0,0 : print "FPS: ";screen fps()
set cursor 0,20 : print "Press space bar to re-set"
set cursor 0,40 : print "Press P key to pause physic"

gosub collisions

gosub camera

gosub physic_pause
if spacekey()=1
   for c = 1 to 1000
      color object c,rgb(255,0,0)
      phy set rigid body position c,rnd(20)-rnd(20),rnd(20)-rnd(20),rnd(20)-rnd(20)
      phy set rigid body rotation c,0,0,0
   next c
endif
sync
loop

`*******************************************************************************************************
`********************************((( here is the collision code ))**************************************
`*******************************************************************************************************

collisions:
    while phy get collision data ( )
      a = phy get collision object a ( )
      b = phy get collision object b ( )
      if a > 0 and  b < 1001
         color object a,rgb(0,255,0)
         color object b,rgb(0,0,255)
      endif
    endwhile
return

`*******************************************************************************************************
`*******************************((( here is the pause physic code ))************************************
`*******************************************************************************************************

physic_pause:
      if keystate(25) = 1 and pause = 0 then pause = 1
      if pause = 1
      set cursor screen width()/2.25,screen height()/2.25 :print "Physic Paused"
         inc count
         if count >= 25
            if keystate(25) = 1 then pause = 0
         endif
      else
         count = 0
         phy update
      endif
return

`*******************************************************************************************************
`*******************************((( here is the mad camera contol ))************************************
`*******************************************************************************************************

camera:
   c# = wrapvalue( c# + 0.5 )
   x# = cos ( c# ) * 40.0
   z# = sin ( c# ) * 40.0
   position camera x#, x#, z#
   point camera 0.0,-20,0.0
return

+ Code Snippet

Rem ***** Main Source File *****
sync on : sync rate 60
`set display mode 1280,800,32
backdrop on
color backdrop rgb(255,255,255)
autocam off
rotate camera 45,0,0
position camera 0,0,-40

phy start

for c = 1 to 1000
   make object cube c,1
   position object c,rnd(20)-rnd(20),rnd(20)-rnd(20),rnd(20)-rnd(20)
   color object c,rgb(255,0,0)
   phy make rigid body dynamic box c
next c

make object cube 1001,1
scale object 1001,10000,10,10000
position object 1001,0,-30,0
hide object 1001
phy make rigid body static box 1001

ink rgb(0,0,0),0

do
set cursor 0,0 : print "FPS: ";screen fps()
set cursor 0,20 : print "Press space bar to re-set"
set cursor 0,40 : print "Press P key to pause physic"

gosub collisions

gosub camera

gosub physic_pause
if spacekey()=1
   for c = 1 to 1000
      color object c,rgb(255,0,0)
      phy set rigid body position c,rnd(20)-rnd(20),rnd(20)-rnd(20),rnd(20)-rnd(20)
      phy set rigid body rotation c,0,0,0
   next c
endif
sync
loop

`*******************************************************************************************************
`********************************((( here is the collision code ))**************************************
`*******************************************************************************************************

collisions:
    while phy get collision data ( )
      a = phy get collision object a ( )
      b = phy get collision object b ( )
      if a > 0 and  b < 1001
         color object a,rgb(0,255,0)
         color object b,rgb(0,0,255)
      endif
    endwhile
return

`*******************************************************************************************************
`*******************************((( here is the pause physic code ))************************************
`*******************************************************************************************************

physic_pause:
      if keystate(25) = 1 and pause = 0 then pause = 1
      if pause = 1
      set cursor screen width()/2.25,screen height()/2.25 :print "Physic Paused"
         inc count
         if count >= 25
            if keystate(25) = 1 then pause = 0
         endif
      else
         count = 0
         phy update
      endif
return

`*******************************************************************************************************
`*******************************((( here is the mad camera contol ))************************************
`*******************************************************************************************************

camera:
   c# = wrapvalue( c# + 0.5 )
   x# = cos ( c# ) * 40.0
   z# = sin ( c# ) * 40.0
   position camera x#, x#, z#
   point camera 0.0,-20,0.0
return

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 12th Oct 2008 19:17

Link

pop this one in and see what happens

+ Code Snippet

collisions:
    while phy get collision data ( )
      a = phy get collision object a ( )
      b = phy get collision object b ( )
      if a > 0 and  b < 1001
         color object a,rgb(0,255,0)
phy add rigid body force a, 30, 0,30, 30,30,0,1

         color object b,rgb(0,0,255)
phy add rigid body force b, -30, 0,-30, 30,-30,0,1

      endif
    endwhile
return

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 13th Oct 2008 16:21

Link

@HowDo
I like what you did, its the nuts lol.

that just gave me an idea for some thing, do you mind if I test that out on my spinning top program? I think it would work better than PHY SET RIGID BODY LINEAR VELOCITY of which I was using before.

I`m using my dads pc at the mo, so the that program runs slow, but I`ll test this out on my laptop and run it again.

do you thing that phy add rigid body force would work with some of the code I made to bounce my spinning top a way from each other?

soul sucking devils, twisted body of the damed, slivering slim drips from every poor, sin licking at your ears, and the smell stinging your eyes, and if you don't like it, get out of my kitchen!

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 13th Oct 2008 16:53

Link

Quote: "do you thing that phy add rigid body force would work with some of the code I made to bounce my spinning top a way from each other?"

sindore it might help, but don't forget when using physX it does for you, so if there no bounce then they did not hit hard enough, Also remember that now objects become like the real thing so they move and bounce like them adding materials to them changes how they behave.

if you took the above code and put it in a close box and turned off gravity then I think it would go mad and the same if it had gravity on.

plus the above code lets you add some of the physX commands and it will show what it does, so when you make something else you'll be able to go AH! that command did so and so just what I need.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 13th Oct 2008 17:11

Link

ok but on my collisions for my spinning top code you said

Quote: "how you've got them spinning and how they wobble the correct way"

, well what I used to do that was a (PHY SET RIGID BODY LINEAR VELOCITY & phy set rigid body angular momentum), what I`m saying is will this work better if I use phy add rigid body force instead? instead of PHY SET RIGID BODY LINEAR VELOCITY?

and if so can I still add

`***((( spin set up )))***
spin_control:
   `this is to rotate SP so it spins when a collision takes place
   for c = 1 to ID
      if phy get rigid body exist(c) = 1

SPA(c).sposx# = object position x(c)
         SPA(c).sposy# = object position y(c)
         SPA(c).sposz# = object position z(c)

SPA(c).nowposx# = object position x(c)
         SPA(c).nowposy# = object position y(c)
         SPA(c).nowposz# = object position z(c)

SPA(c).wvoax# = wrapvalue(object angle x(c)+10.5)
         SPA(c).wvoay# = wrapvalue(object angle y(c)+10.5)
         SPA(c).wvoaz# = wrapvalue(object angle z(c)+10.5)

SPA(c).covx# = CURVEVALUE(PHY GET RIGID BODY ANGULAR MOMENTUM x (c),SPA(c).wvoax#,0.1) :`change to sute
         SPA(c).covy# = CURVEVALUE(PHY GET RIGID BODY ANGULAR MOMENTUM y (c),SPA(c).wvoay#,0.1)
         SPA(c).covz# = CURVEVALUE(PHY GET RIGID BODY ANGULAR MOMENTUM z (c),SPA(c).wvoaz#,0.1)

SPA(c).newx# = newxvalue(SPA(c).sposx#,SPA(c).covx#,10) :`change to sute
         SPA(c).newy# = newyvalue(SPA(c).sposy#,SPA(c).covy#,10)
         SPA(c).newz# = newzvalue(SPA(c).sposz#,SPA(c).covz#,10)
      endif
   next c
return

+ Code Snippet

`***((( spin set up )))***
spin_control:
   `this is to rotate SP so it spins when a collision takes place
   for c = 1 to ID
      if phy get rigid body exist(c) = 1

         SPA(c).sposx# = object position x(c)
         SPA(c).sposy# = object position y(c)
         SPA(c).sposz# = object position z(c)

         SPA(c).nowposx# = object position x(c)
         SPA(c).nowposy# = object position y(c)
         SPA(c).nowposz# = object position z(c)

         SPA(c).wvoax# = wrapvalue(object angle x(c)+10.5)
         SPA(c).wvoay# = wrapvalue(object angle y(c)+10.5)
         SPA(c).wvoaz# = wrapvalue(object angle z(c)+10.5)

         SPA(c).covx# = CURVEVALUE(PHY GET RIGID BODY ANGULAR MOMENTUM x (c),SPA(c).wvoax#,0.1) :`change to sute
         SPA(c).covy# = CURVEVALUE(PHY GET RIGID BODY ANGULAR MOMENTUM y (c),SPA(c).wvoay#,0.1)
         SPA(c).covz# = CURVEVALUE(PHY GET RIGID BODY ANGULAR MOMENTUM z (c),SPA(c).wvoaz#,0.1)

         SPA(c).newx# = newxvalue(SPA(c).sposx#,SPA(c).covx#,10) :`change to sute
         SPA(c).newy# = newyvalue(SPA(c).sposy#,SPA(c).covy#,10)
         SPA(c).newz# = newzvalue(SPA(c).sposz#,SPA(c).covz#,10)
      endif
   next c
return

that to phy add rigid body force?

be-cos I think that if I do I may get a better result, have a look at the my spinning top code again and you`ll see what I`m talking about.

soul sucking devils, twisted body of the damed, slivering slim drips from every poor, sin licking at your ears, and the smell stinging your eyes, and if you don't like it, get out of my kitchen!

Back to top

Profile PM Email Website

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 15th Oct 2008 00:24 Edited at: 15th Oct 2008 00:37

Link

just tested what I was talking about, ok the out come is a bit strange.

HowDo you could be right as always.

here is the out code

sync on : sync rate 60
set display mode 1280,800,32
backdrop on
color backdrop rgb(255,255,255)
autocam off
rotate camera 45,0,0
position camera 0,0,-40

phy start

type spin_top
col1 as Integer
sposx# as float
sposy# as float
sposz# as float
nowposx# as float
nowposy# as float
nowposz# as float
wvoax# as float
wvoay# as float
wvoaz# as float
covx# as float
covy# as float
covz# as float
newx# as float
newy# as float
newz# as float
endtype
dim SPA(10000) as spin_top

for c = 1 to 1000
   make object cube c,1
   position object c,rnd(20)-rnd(20),rnd(20)-rnd(20),rnd(20)-rnd(20)
   color object c,rgb(255,0,0)
   phy make rigid body dynamic box c
next c

make object cube 1001,1
scale object 1001,10000,10,10000
position object 1001,0,-30,0
hide object 1001
phy make rigid body static box 1001

ink rgb(0,0,0),0

do
set cursor 0,0 : print "FPS: ";screen fps()
set cursor 0,20 : print "Press space bar to re-set"
set cursor 0,40 : print "Press P key to pause physic"

gosub spin_control

gosub collisions

gosub camera

gosub physic_pause

sync
loop

`*******************************************************************************************************
`********************************((( can any one help ))**************************************
`*******************************************************************************************************

`***((( I dont know what this is doing )))***
spin_control:
   for c = 1 to 1000
      if phy get rigid body exist(c) = 1

SPA(c).sposx# = object position x(c)
         SPA(c).sposy# = object position y(c)
         SPA(c).sposz# = object position z(c)

SPA(c).nowposx# = object position x(c)
         SPA(c).nowposy# = object position y(c)
         SPA(c).nowposz# = object position z(c)

SPA(c).wvoax# = wrapvalue(object angle x(c)+10.5)
         SPA(c).wvoay# = wrapvalue(object angle y(c)+10.5)
         SPA(c).wvoaz# = wrapvalue(object angle z(c)+10.5)

SPA(c).covx# = CURVEVALUE(PHY GET RIGID BODY ANGULAR MOMENTUM x (c),SPA(c).wvoax#,10.0)
         SPA(c).covy# = CURVEVALUE(PHY GET RIGID BODY ANGULAR MOMENTUM y (c),SPA(c).wvoay#,10.0)
         SPA(c).covz# = CURVEVALUE(PHY GET RIGID BODY ANGULAR MOMENTUM z (c),SPA(c).wvoaz#,10.0)

SPA(c).newx# = newxvalue(SPA(c).sposx#,SPA(c).covx#,rnd(9.0)+1.0)
         SPA(c).newy# = newyvalue(SPA(c).sposy#,SPA(c).covy#,rnd(9.0)+1.0)
         SPA(c).newz# = newzvalue(SPA(c).sposz#,SPA(c).covz#,rnd(9.0)+1.0)
      endif
   next c
return

`*******************************************************************************************************
`********************************((( here is the collision code ))**************************************
`*******************************************************************************************************

collisions:
    while phy get collision data ( )
      a = phy get collision object a ( )
      b = phy get collision object b ( )
      if a > 0 and b < 1001 and (SPA(a).col1 = 0 or SPA(b).col1 = 0)
         color object a,rgb(0,255,0)
         phy add rigid body force a,SPA(a).covx#,SPA(a).covy#,SPA(a).covz#,SPA(a).newx#,SPA(a).newy#,SPA(a).newz#,1

color object b,rgb(0,0,255)
         phy add rigid body force b,SPA(b).covx#,SPA(b).covy#,SPA(b).covz#,SPA(b).newx#,SPA(b).newy#,SPA(b).newz#,1

SPA(a).col1 = 1
         SPA(b).col1 = 1
      else
         SPA(a).col1 = 0
         SPA(b).col1 = 0
      endif
    endwhile
for c = 1 to 1000
   if spacekey()=1
      color object c,rgb(255,0,0)
      phy set rigid body position c,rnd(20)-rnd(20),rnd(20)-rnd(20),rnd(20)-rnd(20)
      phy set rigid body rotation c,0,0,0
   endif
next c
return

`*******************************************************************************************************
`*******************************((( here is the pause physic code ))************************************
`*******************************************************************************************************

physic_pause:
      if keystate(25) = 1 and pause = 0 then pause = 1
      if pause = 1
      set cursor screen width()/2.25,screen height()/2.25 :print "Physic Paused"
         inc count
         if count >= 25
            if keystate(25) = 1 then pause = 0
         endif
      else
         count = 0
         phy update
      endif
return

`*******************************************************************************************************
`*******************************((( here is the mad camera contol ))************************************
`*******************************************************************************************************

camera:
   c# = wrapvalue( c# + 1.5 )
   x# = cos ( c# ) * 40.0
   z# = sin ( c# ) * 40.0
   position camera x#, x#, z#
   point camera 0.0,-20,0.0
return

+ Code Snippet

sync on : sync rate 60
set display mode 1280,800,32
backdrop on
color backdrop rgb(255,255,255)
autocam off
rotate camera 45,0,0
position camera 0,0,-40

phy start

type spin_top
col1 as Integer
sposx# as float
sposy# as float
sposz# as float
nowposx# as float
nowposy# as float
nowposz# as float
wvoax# as float
wvoay# as float
wvoaz# as float
covx# as float
covy# as float
covz# as float
newx# as float
newy# as float
newz# as float
endtype
dim SPA(10000) as spin_top

for c = 1 to 1000
   make object cube c,1
   position object c,rnd(20)-rnd(20),rnd(20)-rnd(20),rnd(20)-rnd(20)
   color object c,rgb(255,0,0)
   phy make rigid body dynamic box c
next c

make object cube 1001,1
scale object 1001,10000,10,10000
position object 1001,0,-30,0
hide object 1001
phy make rigid body static box 1001

ink rgb(0,0,0),0

do
set cursor 0,0 : print "FPS: ";screen fps()
set cursor 0,20 : print "Press space bar to re-set"
set cursor 0,40 : print "Press P key to pause physic"

gosub spin_control

gosub collisions

gosub camera

gosub physic_pause

sync
loop

`*******************************************************************************************************
`********************************((( can any one help ))**************************************
`*******************************************************************************************************

`***((( I dont know what this is doing )))***
spin_control:
   for c = 1 to 1000
      if phy get rigid body exist(c) = 1

         SPA(c).sposx# = object position x(c)
         SPA(c).sposy# = object position y(c)
         SPA(c).sposz# = object position z(c)

         SPA(c).nowposx# = object position x(c)
         SPA(c).nowposy# = object position y(c)
         SPA(c).nowposz# = object position z(c)

         SPA(c).wvoax# = wrapvalue(object angle x(c)+10.5)
         SPA(c).wvoay# = wrapvalue(object angle y(c)+10.5)
         SPA(c).wvoaz# = wrapvalue(object angle z(c)+10.5)

         SPA(c).covx# = CURVEVALUE(PHY GET RIGID BODY ANGULAR MOMENTUM x (c),SPA(c).wvoax#,10.0)
         SPA(c).covy# = CURVEVALUE(PHY GET RIGID BODY ANGULAR MOMENTUM y (c),SPA(c).wvoay#,10.0)
         SPA(c).covz# = CURVEVALUE(PHY GET RIGID BODY ANGULAR MOMENTUM z (c),SPA(c).wvoaz#,10.0)

         SPA(c).newx# = newxvalue(SPA(c).sposx#,SPA(c).covx#,rnd(9.0)+1.0)
         SPA(c).newy# = newyvalue(SPA(c).sposy#,SPA(c).covy#,rnd(9.0)+1.0)
         SPA(c).newz# = newzvalue(SPA(c).sposz#,SPA(c).covz#,rnd(9.0)+1.0)
      endif
   next c
return

`*******************************************************************************************************
`********************************((( here is the collision code ))**************************************
`*******************************************************************************************************

collisions:
    while phy get collision data ( )
      a = phy get collision object a ( )
      b = phy get collision object b ( )
      if a > 0 and b < 1001 and (SPA(a).col1 = 0 or SPA(b).col1 = 0)
         color object a,rgb(0,255,0)
         phy add rigid body force a,SPA(a).covx#,SPA(a).covy#,SPA(a).covz#,SPA(a).newx#,SPA(a).newy#,SPA(a).newz#,1

         color object b,rgb(0,0,255)
         phy add rigid body force b,SPA(b).covx#,SPA(b).covy#,SPA(b).covz#,SPA(b).newx#,SPA(b).newy#,SPA(b).newz#,1

         SPA(a).col1 = 1
         SPA(b).col1 = 1
      else
         SPA(a).col1 = 0
         SPA(b).col1 = 0
      endif
    endwhile
for c = 1 to 1000
   if spacekey()=1
      color object c,rgb(255,0,0)
      phy set rigid body position c,rnd(20)-rnd(20),rnd(20)-rnd(20),rnd(20)-rnd(20)
      phy set rigid body rotation c,0,0,0
   endif
next c
return

`*******************************************************************************************************
`*******************************((( here is the pause physic code ))************************************
`*******************************************************************************************************

physic_pause:
      if keystate(25) = 1 and pause = 0 then pause = 1
      if pause = 1
      set cursor screen width()/2.25,screen height()/2.25 :print "Physic Paused"
         inc count
         if count >= 25
            if keystate(25) = 1 then pause = 0
         endif
      else
         count = 0
         phy update
      endif
return

`*******************************************************************************************************
`*******************************((( here is the mad camera contol ))************************************
`*******************************************************************************************************

camera:
   c# = wrapvalue( c# + 1.5 )
   x# = cos ( c# ) * 40.0
   z# = sin ( c# ) * 40.0
   position camera x#, x#, z#
   point camera 0.0,-20,0.0
return

soul sucking devils, twisted body of the damed, slivering slim drips from every poor, sin licking at your ears, and the smell stinging your eyes, and if you don't like it, get out of my kitchen!

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Dark Physics & Dark A.I. & Dark Dynamix / need help with linear velocity / collisions