Sorry your browser is not supported!

phy start
autocam off
sync on
sync rate 60
color backdrop 0

make object box 1, 40, 1, 40
phy make rigid body static box 1
color object 1, rgb ( 10, 10, 10 )

phy make material 1, "static friction"
  phy set material static friction 1, 1
  phy set material restitution 1,0
phy build material 1

make object cube 2, 2.5
position object 2, 0, 30, 0
phy make rigid body dynamic box 2
color object 2, rgb ( 0, 0, 255 )

position camera 0, 5, -40


do

 If MouseClick()=1 then phy set rigid body linear velocity 2,0,5,0

 sync
 phy update
loop

phy start : sync on : sync rate 0 : autocam off : color backdrop 0

position camera 5,5,5 : point camera 0,3,0

` Floor
` =====================================================================================
make object box 2,10,1,10
position object 2,0,0,0
phy make rigid body static box 2
load image "floor02.jpg",2,0
texture object 2,2

Phy Set Gravity 0,-25,0

` Grid
`-------------------------------------------
ndx = 1000
for i = 1 to 10
   for j = 1 to 10
      make object sphere ndx,.05
      color object ndx,rgb(0,255,0)
      position object ndx,i-5,2.0,j-5
      inc ndx
   next j
next i

` Boxes
`-------------------------------------------
ndx = 10
for i = 1 to 10
   make object box ndx,1,.1,2
   position object ndx,0,i,0
   color object ndx,rgb(rnd(255),rnd(255),rnd(255))
   Phy Make Rigid Body dynamic Box ndx
   inc ndx
   phy update
   sync
next i

do
`   x#=x#+mousemovey() : y#=y#+mousemovex() : z#=z#+mousemovez() : rotate camera x#,y#,z#
   If MouseClick()=1 then phy set rigid body linear velocity rnd(9)+10,0,5,0
   phy update
   sync
loop

phy set rigid body mass 2,1000.0

phy start
autocam off
sync on
sync rate 60
color backdrop 0

make object box 1, 40, 1, 40
phy make rigid body static box 1
color object 1, rgb ( 10, 10, 10 )

phy make material 1, "static friction"
  phy set material static friction 1, 1
  phy set material restitution 1,0
phy build material 1

make object cube 2, 2.5
position object 2, 0, 30, 0
phy make rigid body dynamic box 2
phy set rigid body mass 2,1
color object 2, rgb ( 0, 0, 255 )

position camera 0, 5, -40


do

 If MouseClick()=1 then phy set rigid body linear velocity 2,0,5,0

 sync
 phy update
loop

phy start
autocam off
sync on
sync rate 60
color backdrop 0

make object box 1, 40, 1, 40
phy make rigid body static box 1
color object 1, rgb ( 10, 10, 10 )

phy make material 1, "static friction"
  phy set material static friction 1, 1
  phy set material restitution 1,0
phy build material 1

make object cube 2, 2.5
position object 2, 0, 30, 0
phy make rigid body dynamic box 2
phy set rigid body mass 2,1000000
color object 2, rgb ( 0, 0, 255 )

position camera 0, 5, -40


do

 If MouseClick()=1 then phy set rigid body linear velocity 2,0,5,0

 sync
 phy update
loop

` set the scene pros
phy start
sync on
sync rate 60

` make a floor to bounce on
` the floor is a static rigid box
` with some high material values attached
` the floor is also titled 2 degrees along the x axis
make Object Box 1, 20, 2, 20
color object 1, 0xFFFF55FF
rotate object 1, 2, 0, 0
phy make material 1, "floor"
phy set material restitution 1, 1.0
phy set material dynamic friction 1, 0.9
phy build material 1
phy make rigid body static box 1,1

` now make a box to drop
` make it 50 meters about the floor
` again, high material values
` rotate it and give it a little bit of movement
` just so the box doesn't hit face to face (instead we 
` get a corner or edge to bounce on)
make Object box 2, 1,1,1
position object 2, 0, 50, 0
phy make material 2, "box"
phy set material restitution 2, 1.0
phy set material dynamic friction 1, 0.9
phy build material 2
phy make rigid body dynamic box 2,2
phy set rigid body mass 2, 500
phy set rigid body rotation 2, 0, 45, 0
phy set rigid body linear velocity 2, 1, 1, 1 

` do our loop
do
	text 10, 10, "Velocity Y = " + Str$(phy get rigid body linear velocity y (2),1)
	position camera 10, 30, 10 
	point camera object position x(2), object position y(2), object position z(2)
	phy update
	sync
loop

` set the scene pros
phy start
sync on
sync rate 60

` make a floor to bounce on
` the floor is a static rigid box
` with some high material values attached
` the floor is also titled 2 degrees along the x axis
make Object Box 1, 40, 2, 40
color object 1, 0xFF0055FF
rotate object 1, 0, 0, 0
phy make material 1, "floor"
phy set material restitution 1, 0.05
phy set material dynamic friction 1, 0.9
phy build material 1
phy make rigid body static box 1,1

` now make a box to drop
` make it 50 meters about the floor
` again, high material values
` rotate it and give it a little bit of movement
` just so the box doesn't hit face to face (instead we 
` get a corner or edge to bounce on)
make Object box 2, 1,1,1
position object 2, 0, 50, 0
phy make material 2, "box"
phy set material restitution 2, 0.05
phy set material dynamic friction 2, 0.9
phy build material 2
phy make rigid body dynamic box 2,2
phy set rigid body rotation 2, 0, 45, 0
phy set rigid body linear velocity 2, 2, 0, 0

` do our loop
do
	text 10, 10, "Velocity Y = " + Str$(phy get rigid body linear velocity y (2),1)
	position camera 20, 20, 20 
	point camera object position x(2), object position y(2), object position z(2)
	point camera 0,0,0
	phy update
	sync
loop

` damping example to emulate air resistance

` set up the program
phy start
phy set gravity 0,-98.1,0
autocam off
sync on
sync rate 60
position camera 0, 20, -70

` create our ground object
make object box 1, 50, 1, 50
phy make rigid body static box 1

` make a material
phy make material 1, "low bounce"
phy set material restitution 1, 0.1
phy build material 1

` create sphere with no damping
make object sphere 2, 5
position object 2, -10, 50, 0
phy make rigid body dynamic sphere 2, 1
phy set rigid body linear damping  2, 0

` create sphere with damping
make object sphere 3, 5
position object 3, 10, 50, 0
phy make rigid body dynamic sphere 3, 1
phy set rigid body linear damping  3, 5

` colour all objects
for i = 2 to 3
   color object i, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )
   set object specular i, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )
   set object specular power i, 255
   set object ambient i, 0
next i


do
   center text object screen x ( 2 ), object screen y ( 2 ) - 40, "0 Damping"
   center text object screen x ( 3 ), object screen y ( 3 ) - 40, "5 Damping"

   phy update
   sync
loop