Sorry your browser is not supported!

Rem ***** Main Source File *****
  phy start

    autocam off

    sync rate 60

    color backdrop rgb(0,192,36)

    position camera 15, 20, -70

    make light 1

    set directional light 1, -5, -5, 5

 

`    make object box 1, 50, 1, 50

`    color object 1, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )

`    phy make rigid body static box 1

 

    y = 15

 

    for i = 2 to 4
if i=3
make object box i,10,55,10
offset limb i,0,0,23,0
phy set rigid body mass i,10000
phy set rigid body mass offset local i,0,30,0 
else
        make object cube i, 10
	`	rotate object i,90,0,0
endif
        position object i, x, y, 0



        color object i, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )

        set object specular i, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )

        set object ambient i, 255

        set object specular power i, 255

if i=3  
        phy make rigid body dynamic box i
else
 phy make rigid body static box i
endif



        x = x + 24

    next i

 

        phy make cylindrical joint 1, 2, 3, object position x ( 2 ), object position y ( 2 ), object position z ( 2 ),  5, 0,0
 phy make cylindrical joint 2, 4, 3, object position x ( 4 ), object position y ( 4 ), object position z ( 4 ),  -5, 0,0

`phy set rigid body angular damping  3, 0.09

make object cylinder 5,5
scale object 5,50,1000,50
rotate object 5,90,90,0
position object 5,25,15,0
ghost object on 5,5

    do

        frame = frame + 1

 

        if spacekey()=1

            phy set rigid body linear velocity 3, 0, 0, 0

            phy set rigid body angular velocity 3, 3, 0, 0

`            frame = 0

        endif

 

        phy update

        sync

    loop

Rem ***** Main Source File *****
phy enable debug 
  phy start

    autocam off

    sync rate 60

    color backdrop rgb(0,192,36)

    position camera 15, 20, -70

    make light 1

    set directional light 1, -5, -5, 5


    y = 15

make object cylinder 5,5
scale object 5,50,1000,50
rotate object 5,90,90,0
position object 5,25,15,0
ghost object on 5,5

    for i = 2 to 3
    
    	if i=3  
		make object box i,10,55,10
	    phy make rigid body dynamic box i
		phy set rigid body position i,x,y+object position y (5),0
        phy set rigid body mass i,100000
		phy set rigid body mass offset global i,object position x (5),55+object position y (5),0 
endif

if i=2 or i=4
        make object cube i, 10

        position object i, x, y, 0

        color object i, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )

        set object specular i, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )

        set object ambient i, 255

        set object specular power i, 255

 		phy make rigid body static box i
	endif



     x = x + 24

    next i
	 phy make cylindrical joint 1, 2,3,object position x(5),object position y(5)+2,object position z(5),0,0.001,0
	 
`phy make cylindrical joint 1, 2,3
`phy set cylindrical joint global anchor 1,1, 0,0,0:rem object position x(3),object position y(3),object position z(3)
`phy set cylindrical joint global axis 1,1, 0,0.0,0
`phy set cylindrical joint global anchor 1,0,object position x(3),object position y(3),object position z(3)
`phy set cylindrical joint global axis 1,0, 0,0.001,0

`phy set cylindrical joint local anchor 1,0, object position x(3),object position y(3),object position z(3)
`phy set cylindrical joint local axis 1,0, 0,0.0,0
`phy set cylindrical joint local anchor 1,1, object position x(2),object position y(2),object position z(2)
`phy set cylindrical joint local axis 1,1, 0,0.001,0
`phy build cylindrical joint 1
  
    do


		 text 0,0,str$(object position x (3))

        if spacekey()=1

            phy set rigid body linear velocity 3, 0, 0, 600

      `      phy set rigid body angular velocity 3, 30, 0, 0

		endif

 

        phy update

        sync

    loop