How to create Pendulum movement?

Author

Message

Mugen Wizardry

User Banned

Posted: 17th Oct 2007 02:38

Just as the title says, is it possible to do this without a DLL, and if so, please post a small example =) Thanks everyone! =)

~M.W~

Back to top

Profile

dark coder

22

Years of Service

User Offline

Joined: 6th Oct 2002

Location: Japan

Posted: 17th Oct 2007 03:09

Link

Quote: "is it possible to do this without a DLL"

Why would it require a DLL?

Sync On
Sync Rate 30

PendulumLength   As Float
PendulumX        As Integer
PendulumY        As Integer
PendulumAngle    As Float
PendulumVelocity As Float

PendulumX      = Screen Width()  * 0.5
PendulumY      = Screen Height() * 0.5
PendulumLength = 200.0

Do

// Manually rotate?
   If MouseClick()
      PendulumVelocity = 0
      PendulumAngle    = AtanFull(MouseX()-PendulumX,MouseY()-PendulumY)
   Endif

// Find rotational acceleration based on angle
   PendulumVelocity = PendulumVelocity - Sin(PendulumAngle)
   // Dampen rotation
   PendulumVelocity = PendulumVelocity * 0.99
   // Update rotation
   PendulumAngle    = PendulumAngle + PendulumVelocity

CLS
   // Draw origin
   Circle PendulumX , PendulumY , 5
   // Draw line
   Line PendulumX , PendulumY , PendulumX + Sin(PendulumAngle) * PendulumLength , PendulumY + Cos(PendulumAngle) * PendulumLength
   // Draw weight
   Circle PendulumX + Sin(PendulumAngle) * PendulumLength , PendulumY + Cos(PendulumAngle) * PendulumLength , 20

Sync
Loop

+ Code Snippet

Sync On
Sync Rate 30

PendulumLength   As Float
PendulumX        As Integer
PendulumY        As Integer
PendulumAngle    As Float
PendulumVelocity As Float

PendulumX      = Screen Width()  * 0.5
PendulumY      = Screen Height() * 0.5
PendulumLength = 200.0

Do

   // Manually rotate?
   If MouseClick()
      PendulumVelocity = 0
      PendulumAngle    = AtanFull(MouseX()-PendulumX,MouseY()-PendulumY)
   Endif

   // Find rotational acceleration based on angle
   PendulumVelocity = PendulumVelocity - Sin(PendulumAngle)
   // Dampen rotation
   PendulumVelocity = PendulumVelocity * 0.99
   // Update rotation
   PendulumAngle    = PendulumAngle + PendulumVelocity

   CLS
   // Draw origin
   Circle PendulumX , PendulumY , 5
   // Draw line
   Line PendulumX , PendulumY , PendulumX + Sin(PendulumAngle) * PendulumLength , PendulumY + Cos(PendulumAngle) * PendulumLength
   // Draw weight
   Circle PendulumX + Sin(PendulumAngle) * PendulumLength , PendulumY + Cos(PendulumAngle) * PendulumLength , 20

   Sync
Loop

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 17th Oct 2007 03:43

Link

@dark coder: Thanks mate, but I should have said that I needed a 3D version of it. =) You know, like the movement of the Colossus, in the PS2 game: Shadow of the Colossus =)

~M.W~

Back to top

Profile

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 17th Oct 2007 14:05

Link

I have no idea what the 'Colossus' is, but DC's code can quite easily be converted to work for 3d too:-

+ Code Snippet

Sync On
Sync Rate 60
autocam off
position camera 0,0,-300
color backdrop 0

PendulumLength   As Float
PendulumX        As Integer
PendulumY        As Integer
PendulumAngle    As Float
PendulumVelocity As Float

PendulumX      = Screen Width()  * 0.5
PendulumY      = Screen Height() * 0.5
PendulumLength = 200.0

make object box 1,5,PendulumLength,5
offset limb 1,0,0,-PendulumLength/2,0
position object 1,0,PendulumLength/2,0
make object sphere 2,50
glue object to limb 2,1,0
position object 2,0,-PendulumLength/2,0



Do

   // Manually rotate?
   If MouseClick()
      PendulumVelocity = 0
      PendulumAngle    = AtanFull(MouseX()-PendulumX,MouseY()-PendulumY)
   Endif

   // Find rotational acceleration based on angle
   PendulumVelocity = PendulumVelocity - PendulumAngle*0.002
   // Dampen rotation
   PendulumVelocity = PendulumVelocity * 0.998
   // Update rotation
   PendulumAngle    = PendulumAngle + PendulumVelocity

   zrotate object 1,PendulumAngle

   Sync
Loop

Back to top

Profile PM Email Website

Mugen Wizardry

User Banned

Posted: 17th Oct 2007 16:35 Edited at: 17th Oct 2007 16:36

Link

@Ric: Thanks alot, mate, but this is more of the movement that I am looking for, although I will be using this code in my game for other purposes, if it is ok =)

Anyways, here is the Shadow of the Colossus, and this is the movement that I am looking for:

http://youtube.com/watch?v=hTsQZog5IiY

Thanks everyone! =)

~M.W~

Back to top

Profile

Jeff032

17

Years of Service

User Offline

Joined: 13th Aug 2007

Location:

Posted: 17th Oct 2007 16:57

Link

I don't get it...what part of the movie is pertaining to pendulum movement? Maybe I just missed something?...

Space Game WIP

Back to top

Profile PM

Mugen Wizardry

User Banned

Posted: 17th Oct 2007 17:15 Edited at: 17th Oct 2007 17:16

Link

@Jeff032: It may also be in the movement of the monster. But the main part where the monster moves and the player hangs on to the monster & the monster tries to shake the player off, but the player clings on, and starts to drop or rotate like a pendulum. Thanks everyone! =)

~M.W~

Back to top

Profile

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 18th Oct 2007 02:14

Link

The motion of the characters in that video are complex - they may involve motion capture, ragdoll physics or both. You won't get a solution to the question 'how do I create something like that' in a code snippet. What you will get here are building blocks - basic principles which you have to piece together to get the complex results you want.

Back to top

Profile PM Email Website

calcyman

17

Years of Service

User Offline

Joined: 31st Aug 2007

Location: The Uncertainty Principle

Posted: 20th Oct 2007 09:43

Link

This way is much simpler:

Angle = 30*SIN(time)

ZRotate object pendulum, angle

I can't be bothered to invent a signature

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / How to create Pendulum movement?