Example 5 : Opening Doors

One of the joint demo programs shows how to create a door. Whenever any rigid bodies hit the door with some force it will swing open. You can also make it so that with a certain amount of force the joint will break and the door falls off.

` demonstrates how a door can be created using joints

` set up our program
phy start
sync on
sync rate 60

` make a background sphere
load image "stripe5.png",1000
make object sphere 1000,400,48,48
texture object 1000,1000
scale object texture 1000,6,6
set object cull 1000,0
rotate object 1000,0,0,90
load image "stripe6.png", 3

` create a floor object
make object box 1, 210, 1, 210
position object 1, 0, -1, 0
phy make rigid body static box 1
texture object 1, 3

` create a wall at the back left
make object box 2, 80, 60, 1
position object 2, -60, 30, 100
phy make rigid body static box 2

` create wall at the back right
make object box 3, 80, 60, 1
position object 3, 60, 30, 100
phy make rigid body static box 3

` create left wall
make object box 4, 1, 60, 200
position object 4, -100, 30, 0
phy make rigid body static box 4

` create right wall
make object box 5, 1, 60, 200
position object 5, 100, 30, 0
phy make rigid body static box 5

` create front wall
make object box 6, 200, 60, 1
position object 6, 0, 30, -100
phy make rigid body static box 6

` create our door
make object box 7, 39.8, 60, 1
position object 7, 0, 30, 100
color object 7, rgb( 255, 0, 0 )
phy make rigid body dynamic box 7

` give all of our objects some colour
for i = 2 to 7
   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

` create a revolute joint between the back left wall and the door
phy make revolute joint 1, 2, 7, 0, 1, 0, -20, 30, 100

` place a sphere so we can see the position of the joint
make object sphere 9, 5
position object 9, -20, 30, 100

` make a sphere to fire at the door
make object sphere 11, 15, 20, 20
position object 11, 0, 15, 0
phy make rigid body dynamic sphere 11
color object 11, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )
set object specular 11, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )
set object specular power 11, 255
set object ambient 11,0

` position and rotate the camera to view the scene
position camera -75, 140, -2
rotate camera 47, 42, 0

` display the Dark Physics logo
load image "logo.png", 100000
sprite 1, 0, 600 - 60, 100000

` main program loop
do
   ` display some instructions
   set cursor 0, 0
   print "Press the space key to apply velocity to the sphere"

   ` when the space key is pressed apply velocity to the door
   if spacekey( ) = 1
      phy set rigid body linear velocity 11, 0, 0, 80.0
   endif

   ` update the physics and screen
   phy update
   sync
loop

Return to the Examples List