Rotate Rigid bodies - GameCreators Forum

Author

Message

Black Mesa

18

Years of Service

User Offline

Joined: 25th Mar 2006

Location:

Posted: 17th Aug 2006 00:54

Link

Has anyone made any working code that will rotate a bunch of rigid bodies that are joined together. I tried using the rotate object commands and the phy rotate rigid body commands but they didnt seem to work.

Your mod has been erased by a signature

Back to top

Profile PM

Mike Johnson

TGC Developer

21

Years of Service

User Offline

Joined: 13th Sep 2002

Location: United Kingdom

Posted: 17th Aug 2006 10:03

Link

Try enabling the kinematic property for your rigid bodies. There's a demo included in the rigid bodies folder that shows how this works.

Back to top

Profile PM Email Website

Black Mesa

18

Years of Service

User Offline

Joined: 25th Mar 2006

Location:

Posted: 18th Aug 2006 01:31

Link

No luck. All I want is so that I can hit 'D' and rotate the catapult to a new heading.

sync on
sync rate 60
autocam off

phy enable debug
phy start

make object box 1, 2000, 1, 200
phy make rigid body static box 1

make object sphere 2, 5
position object 2, 0, 10, 0
phy make rigid body static sphere 2

make object box 3, 25, 1, 10
position object 3, -5, 15, 0
phy make rigid body dynamic box 3

phy make revolute joint 1, 2, 3, 0, 0, 1, 0, 15, 0

make object sphere 4,5
position object 4, -13, 17, 0
phy make rigid body dynamic sphere 4
phy set rigid body mass 4, 1

make object box 5, 1,10,10
position object 5,-17,19,0
phy make rigid body dynamic box 5
phy set rigid body mass 5, 0.1

make object box 6, 8,5,1
position object 6, -13.5,17,-5
phy make rigid body dynamic box 6
phy set rigid body mass 6, 0.1

make object box 7, 8,5,1
position object 7, -13.5,17,5
phy make rigid body dynamic box 7
phy set rigid body mass 7, 0.1

make object box 8, 1,5,10.5
position object 8,-9,17,0
phy make rigid body dynamic box 8
phy set rigid body mass 8, 0.1

phy make fixed joint 3, 5, 3
phy make fixed joint 4, 6, 3
phy make fixed joint 5, 7, 3
phy make fixed joint 6, 8, 3
phy make fixed joint 7, 6, 5
phy make fixed joint 8, 6, 8
phy make fixed joint 9, 7, 5
phy make fixed joint 10, 7, 8

makeboxes()

`phy make fixed joint 2, 4, 3
`phy set joint break limits 2,1000,1000

make camera 1
position camera 1,0, 15, -40
`position camera 1,531, 5, -30
point camera 1,0,0,0
`point camera 1,533,5,0
set current camera 1

go=1
go1=1
go2=1
go3=1
go4=1

`make camera 2
`position camera 2,-500,0,0
`point camera 2,-504,0,0

do
   if spacekey()=1 and go=1
      go=0
       phy delete joint 2
       wait 10
       phy set rigid body linear velocity 3,0,-150,0
  endif

if scancode()=19 and go1=1
    go1=0
    delete object 4
    phy delete rigid body 4
    delete object 3
    phy delete rigid body 3

if scancode()=32 and go4=1
    go4=0
    phy set rigid body kinematic 2, 1
    phy set rigid body kinematic 3, 1
    for obj= 5 to 8
      phy set rigid body kinematic obj, 1
    next obj

phy set rigid body rotation 2,0,0,15
    phy set rigid body rotation 3,0,0,15
    for obj =5 to 8
      phy set rigid body rotation obj,0,0,15
    next obj

phy set rigid body kinematic 2, 0
    phy set rigid body kinematic 3, 0

for obj= 5 to 8
      phy set rigid body kinematic obj, 0
    next obj

endif

if scancode()=0 then go4=1

` if scancode()=2 and go2=1
  `  go2=0
 `   set current camera 1
 ` endif

` if scancode()=0 then go2=1

` if scancode()=3 and go3=1
  `  go3=0
   ` set current camera 2
  `endif

`if scancode()=0 then go3=1

make object box 3, 25, 1, 10
   position object 3, -5, 10, 0
   phy make rigid body dynamic box 3

phy delete joint 1
   phy make revolute joint 1, 2, 3, 0, 0, 1, 0, 10, 0

make object box 4, 5,5,5
   position object 4, -13, 13, 0
   phy make rigid body dynamic box 4
   phy set rigid body mass 4, 10

phy delete joint 2

phy make fixed joint 2, 4, 3
   `phy set joint break limits 2,100,100
  endif

if scancode()=0 then go1=1
  if spacekey()=0 then go=1

Point Camera 1, 0,0,0
   If leftkey()=1
      TURN CAMERA LEFT 1, 90
      MOVE CAMERA 1, .5
      TURN CAMERA RIGHT 1, 90
   endif

If rightkey()=1
      TURN CAMERA right 1, 90
      MOVE CAMERA 1,.5
      TURN CAMERA left 1, 90
   endif

text 0,0,str$(object position x(4))
   text 0,10,str$(object position y(4))
   text 0,20,str$(object position z(4))

phy update
   sync
loop

function makeboxes()

height=0
 for boxes=50 to 55
      make object box boxes,6,1,2
      position object boxes,531,height,0
      phy make rigid body dynamic box boxes
      phy set rigid body mass boxes,.5
      phy set rigid body linear velocity boxes,0,0.1,0
      inc height,2
   next boxes

for boxes=56 to 61
      make object box boxes,6,1,2
      position object boxes,531,height,0
      phy make rigid body dynamic box boxes
      phy set rigid body mass boxes,.5
      phy set rigid body linear velocity boxes,0,0.1,0
      inc height,2
   next boxes

endfunction

+ Code Snippet

sync on
sync rate 60
autocam off

phy enable debug
phy start

make object box 1, 2000, 1, 200
phy make rigid body static box 1

make object sphere 2, 5
position object 2, 0, 10, 0
phy make rigid body static sphere 2

make object box 3, 25, 1, 10
position object 3, -5, 15, 0
phy make rigid body dynamic box 3

phy make revolute joint 1, 2, 3, 0, 0, 1, 0, 15, 0

make object sphere 4,5
position object 4, -13, 17, 0
phy make rigid body dynamic sphere 4
phy set rigid body mass 4, 1

make object box 5, 1,10,10
position object 5,-17,19,0
phy make rigid body dynamic box 5
phy set rigid body mass 5, 0.1

make object box 6, 8,5,1
position object 6, -13.5,17,-5
phy make rigid body dynamic box 6
phy set rigid body mass 6, 0.1

make object box 7, 8,5,1
position object 7, -13.5,17,5
phy make rigid body dynamic box 7
phy set rigid body mass 7, 0.1

make object box 8, 1,5,10.5
position object 8,-9,17,0
phy make rigid body dynamic box 8
phy set rigid body mass 8, 0.1

phy make fixed joint 3, 5, 3
phy make fixed joint 4, 6, 3
phy make fixed joint 5, 7, 3
phy make fixed joint 6, 8, 3
phy make fixed joint 7, 6, 5
phy make fixed joint 8, 6, 8
phy make fixed joint 9, 7, 5
phy make fixed joint 10, 7, 8


makeboxes()

`phy make fixed joint 2, 4, 3
`phy set joint break limits 2,1000,1000

make camera 1
position camera 1,0, 15, -40
`position camera 1,531, 5, -30
point camera 1,0,0,0
`point camera 1,533,5,0
set current camera 1

go=1
go1=1
go2=1
go3=1
go4=1

`make camera 2
`position camera 2,-500,0,0
`point camera 2,-504,0,0

do
   if spacekey()=1 and go=1
      go=0
       phy delete joint 2
       wait 10
       phy set rigid body linear velocity 3,0,-150,0
  endif

  if scancode()=19 and go1=1
    go1=0
    delete object 4
    phy delete rigid body 4
    delete object 3
    phy delete rigid body 3

  if scancode()=32 and go4=1
    go4=0
    phy set rigid body kinematic 2, 1
    phy set rigid body kinematic 3, 1
    for obj= 5 to 8
      phy set rigid body kinematic obj, 1
    next obj

    phy set rigid body rotation 2,0,0,15
    phy set rigid body rotation 3,0,0,15
    for obj =5 to 8
      phy set rigid body rotation obj,0,0,15
    next obj

    phy set rigid body kinematic 2, 0
    phy set rigid body kinematic 3, 0

    for obj= 5 to 8
      phy set rigid body kinematic obj, 0
    next obj

  endif

  if scancode()=0 then go4=1

 ` if scancode()=2 and go2=1
  `  go2=0
 `   set current camera 1
 ` endif

 ` if scancode()=0 then go2=1

 ` if scancode()=3 and go3=1
  `  go3=0
   ` set current camera 2
  `endif

  `if scancode()=0 then go3=1



   make object box 3, 25, 1, 10
   position object 3, -5, 10, 0
   phy make rigid body dynamic box 3

   phy delete joint 1
   phy make revolute joint 1, 2, 3, 0, 0, 1, 0, 10, 0

   make object box 4, 5,5,5
   position object 4, -13, 13, 0
   phy make rigid body dynamic box 4
   phy set rigid body mass 4, 10

   phy delete joint 2

   phy make fixed joint 2, 4, 3
   `phy set joint break limits 2,100,100
  endif

  if scancode()=0 then go1=1
  if spacekey()=0 then go=1

  Point Camera 1, 0,0,0
   If leftkey()=1
      TURN CAMERA LEFT 1, 90
      MOVE CAMERA 1, .5
      TURN CAMERA RIGHT 1, 90
   endif

   If rightkey()=1
      TURN CAMERA right 1, 90
      MOVE CAMERA 1,.5
      TURN CAMERA left 1, 90
   endif

   text 0,0,str$(object position x(4))
   text 0,10,str$(object position y(4))
   text 0,20,str$(object position z(4))


   phy update
   sync
loop



function makeboxes()

height=0
 for boxes=50 to 55
      make object box boxes,6,1,2
      position object boxes,531,height,0
      phy make rigid body dynamic box boxes
      phy set rigid body mass boxes,.5
      phy set rigid body linear velocity boxes,0,0.1,0
      inc height,2
   next boxes

 for boxes=56 to 61
      make object box boxes,6,1,2
      position object boxes,531,height,0
      phy make rigid body dynamic box boxes
      phy set rigid body mass boxes,.5
      phy set rigid body linear velocity boxes,0,0.1,0
      inc height,2
   next boxes

   endfunction

Your mod has been erased by a signature

Back to top

Profile PM

Mike Johnson

TGC Developer

21

Years of Service

User Offline

Joined: 13th Sep 2002

Location: United Kingdom

Posted: 18th Aug 2006 10:26

Link

Thanks for posting source code. Always helps to see what is going on

WKinematic objects are useful in some cases but after seeing what you're doing then you need to do something more. Restructuring the catapult will be helpful here. Ideally you need some kind of support for it to sit on and then you can add in a turning point which uses a revolute joint. The addition of some extra parts will make all of this possible. It will take a little longer to set up but you will have a pretty flexible catapult at the end that can do all you want. The Dark Physics\Demos\Joints\Revolute Joint demo may be useful to you. It shows how you can turn things by using motors and joints.

Back to top

Profile PM Email Website

Black Mesa

18

Years of Service

User Offline

Joined: 25th Mar 2006

Location:

Posted: 19th Aug 2006 02:37

Link

Hrrrrmmm, still nothing.

sync on
sync rate 60
autocam off

phy enable debug
phy start

make object box 1, 2000, 1, 200
position object 1, 0,-2,0
phy make rigid body static box 1

make object sphere 2, 5
position object 2, 0, 10, 0
phy make rigid body static sphere 2

make object box 3, 25, 1, 10
position object 3, -5, 15, 0
phy make rigid body dynamic box 3

phy make revolute joint 1, 2, 3, 0, 0, 1, 0, 15, 0

make object sphere 4,5
position object 4, -13, 17, 0
phy make rigid body dynamic sphere 4
phy set rigid body mass 4, 1

make object box 5, 1,10,10
position object 5,-17,19,0
phy make rigid body dynamic box 5
phy set rigid body mass 5, 0.1

make object box 6, 8,5,1
position object 6, -13.5,17,-5
phy make rigid body dynamic box 6
phy set rigid body mass 6, 0.1

make object box 7, 8,5,1
position object 7, -13.5,17,5
phy make rigid body dynamic box 7
phy set rigid body mass 7, 0.1

make object box 8, 1,5,10.5
position object 8,-9,17,0
phy make rigid body dynamic box 8
phy set rigid body mass 8, 0.1

make object box 9,10,1,10
position object 9,2,7,0
phy make rigid body dynamic box 9
phy make fixed joint 11, 9, 1

phy make fixed joint 3, 5, 3
phy make fixed joint 4, 6, 3
phy make fixed joint 5, 7, 3
phy make fixed joint 6, 8, 3
phy make fixed joint 7, 6, 5
phy make fixed joint 8, 6, 8
phy make fixed joint 9, 7, 5
phy make fixed joint 10, 7, 8

phy make revolute joint 12, 9, 2
phy set revolute joint global anchor 12, 0, 0, 10, 0
phy set revolute joint global axis 12, 0, 0, 1, 0
phy set revolute joint motor 12, 500, 10000, 1.0
phy build revolute joint 12

makeboxes()

`phy make fixed joint 2, 4, 3
`phy set joint break limits 2,1000,1000

make camera 1
position camera 1,0, 15, -40
`position camera 1,531, 5, -30
point camera 1,0,0,0
`point camera 1,533,5,0
set current camera 1

go=1
go1=1
go2=1
go3=1

`make camera 2
`position camera 2,-500,0,0
`point camera 2,-504,0,0

do
   if spacekey()=1 and go=1
      go=0
       phy delete joint 2
       wait 10
       phy set rigid body linear velocity 3,0,-150,0
  endif

if scancode()=19 and go1=1
    go1=0
    delete object 4
    phy delete rigid body 4
    delete object 3
    phy delete rigid body 3

make object box 3, 25, 1, 10
   position object 3, -5, 10, 0
   phy make rigid body dynamic box 3

phy delete joint 1
   phy make revolute joint 1, 2, 3, 0, 0, 1, 0, 10, 0

make object box 4, 5,5,5
   position object 4, -13, 13, 0
   phy make rigid body dynamic box 4
   phy set rigid body mass 4, 10

phy delete joint 2

phy make fixed joint 2, 4, 3
   `phy set joint break limits 2,100,100
  endif

` if scancode()=2 and go2=1
  `  go2=0
 `   set current camera 1
 ` endif

` if scancode()=0 then go2=1

` if scancode()=3 and go3=1
  `  go3=0
   ` set current camera 2
  `endif

`if scancode()=0 then go3=1

if scancode()=0 then go1=1
  if spacekey()=0 then go=1

Point Camera 1, 0,0,0
   If leftkey()=1
      TURN CAMERA LEFT 1, 90
      MOVE CAMERA 1, .5
      TURN CAMERA RIGHT 1, 90
   endif

If rightkey()=1
      TURN CAMERA right 1, 90
      MOVE CAMERA 1,.5
      TURN CAMERA left 1, 90
   endif

text 0,0,str$(object position x(4))
   text 0,10,str$(object position y(4))
   text 0,20,str$(object position z(4))

phy update
   sync
loop

function makeboxes()

height=0
 for boxes=50 to 55
      make object box boxes,6,1,2
      position object boxes,531,height,0
      phy make rigid body dynamic box boxes
      phy set rigid body mass boxes,.5
      phy set rigid body linear velocity boxes,0,0.1,0
      inc height,2
   next boxes

for boxes=56 to 61
      make object box boxes,6,1,2
      position object boxes,531,height,0
      phy make rigid body dynamic box boxes
      phy set rigid body mass boxes,.5
      phy set rigid body linear velocity boxes,0,0.1,0
      inc height,2
   next boxes

endfunction

+ Code Snippet

sync on
sync rate 60
autocam off

phy enable debug
phy start

make object box 1, 2000, 1, 200
position object 1, 0,-2,0
phy make rigid body static box 1

make object sphere 2, 5
position object 2, 0, 10, 0
phy make rigid body static sphere 2

make object box 3, 25, 1, 10
position object 3, -5, 15, 0
phy make rigid body dynamic box 3

phy make revolute joint 1, 2, 3, 0, 0, 1, 0, 15, 0

make object sphere 4,5
position object 4, -13, 17, 0
phy make rigid body dynamic sphere 4
phy set rigid body mass 4, 1

make object box 5, 1,10,10
position object 5,-17,19,0
phy make rigid body dynamic box 5
phy set rigid body mass 5, 0.1

make object box 6, 8,5,1
position object 6, -13.5,17,-5
phy make rigid body dynamic box 6
phy set rigid body mass 6, 0.1

make object box 7, 8,5,1
position object 7, -13.5,17,5
phy make rigid body dynamic box 7
phy set rigid body mass 7, 0.1

make object box 8, 1,5,10.5
position object 8,-9,17,0
phy make rigid body dynamic box 8
phy set rigid body mass 8, 0.1

make object box 9,10,1,10
position object 9,2,7,0
phy make rigid body dynamic box 9
phy make fixed joint 11, 9, 1

phy make fixed joint 3, 5, 3
phy make fixed joint 4, 6, 3
phy make fixed joint 5, 7, 3
phy make fixed joint 6, 8, 3
phy make fixed joint 7, 6, 5
phy make fixed joint 8, 6, 8
phy make fixed joint 9, 7, 5
phy make fixed joint 10, 7, 8

phy make revolute joint 12, 9, 2
phy set revolute joint global anchor 12, 0, 0, 10, 0
phy set revolute joint global axis 12, 0, 0, 1, 0
phy set revolute joint motor 12, 500, 10000, 1.0
phy build revolute joint 12


makeboxes()

`phy make fixed joint 2, 4, 3
`phy set joint break limits 2,1000,1000

make camera 1
position camera 1,0, 15, -40
`position camera 1,531, 5, -30
point camera 1,0,0,0
`point camera 1,533,5,0
set current camera 1

go=1
go1=1
go2=1
go3=1

`make camera 2
`position camera 2,-500,0,0
`point camera 2,-504,0,0

do
   if spacekey()=1 and go=1
      go=0
       phy delete joint 2
       wait 10
       phy set rigid body linear velocity 3,0,-150,0
  endif

  if scancode()=19 and go1=1
    go1=0
    delete object 4
    phy delete rigid body 4
    delete object 3
    phy delete rigid body 3

   make object box 3, 25, 1, 10
   position object 3, -5, 10, 0
   phy make rigid body dynamic box 3

   phy delete joint 1
   phy make revolute joint 1, 2, 3, 0, 0, 1, 0, 10, 0

   make object box 4, 5,5,5
   position object 4, -13, 13, 0
   phy make rigid body dynamic box 4
   phy set rigid body mass 4, 10

   phy delete joint 2

   phy make fixed joint 2, 4, 3
   `phy set joint break limits 2,100,100
  endif

` if scancode()=2 and go2=1
  `  go2=0
 `   set current camera 1
 ` endif

 ` if scancode()=0 then go2=1

 ` if scancode()=3 and go3=1
  `  go3=0
   ` set current camera 2
  `endif

  `if scancode()=0 then go3=1

  if scancode()=0 then go1=1
  if spacekey()=0 then go=1

  Point Camera 1, 0,0,0
   If leftkey()=1
      TURN CAMERA LEFT 1, 90
      MOVE CAMERA 1, .5
      TURN CAMERA RIGHT 1, 90
   endif

   If rightkey()=1
      TURN CAMERA right 1, 90
      MOVE CAMERA 1,.5
      TURN CAMERA left 1, 90
   endif

   text 0,0,str$(object position x(4))
   text 0,10,str$(object position y(4))
   text 0,20,str$(object position z(4))


   phy update
   sync
loop



function makeboxes()

height=0
 for boxes=50 to 55
      make object box boxes,6,1,2
      position object boxes,531,height,0
      phy make rigid body dynamic box boxes
      phy set rigid body mass boxes,.5
      phy set rigid body linear velocity boxes,0,0.1,0
      inc height,2
   next boxes

 for boxes=56 to 61
      make object box boxes,6,1,2
      position object boxes,531,height,0
      phy make rigid body dynamic box boxes
      phy set rigid body mass boxes,.5
      phy set rigid body linear velocity boxes,0,0.1,0
      inc height,2
   next boxes

   endfunction

Your mod has been erased by a signature

Back to top

Profile PM

Mike Johnson

TGC Developer

21

Years of Service

User Offline

Joined: 13th Sep 2002

Location: United Kingdom

Posted: 19th Aug 2006 08:31

Link

I have made some changes to your program:

* after creating box 3 adjust the line where it makes the revolute joint from phy make revolute joint 1, 2, 3, 0, 0, 1, 0, 15, 0 to phy make revolute joint 1, 2, 3, 0, 1, 0, 0, 15, 0

* add this line in to spin the catapult around phy set rigid body angular velocity 3, 0, 1, 0

Still going to need some further work to sort it out but it's a step in the right direction.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Dark Physics & Dark A.I. & Dark Dynamix / Rotate Rigid bodies