FarseerPhysics and constant Speed

Blitz3D Forums/Blitz3D Programming/FarseerPhysics and constant Speed

Head	(Posted 2009) [#1]

Hi,
i play around with the demos of the FarseerPhysics module. But now i dont want to apply forces by keys, i what a ball with constant speed.

Hope someone can help me :)
(sry for bad english *g*)

Edit: ups wrong forum :O

SuperStrict
Import "source/DemoLib.bmx"

Graphics 1024,768
SetClsColor(64,156,233)
SetBlend(ALPHABLEND)

Global physics:TPhysicsSimulator
Global viewer:TPhysicsSimulatorView

physics = TPhysicsSimulator.Create(Vector2.Create(0,0))
viewer = TPhysicsSimulatorView.Create(physics)
physics.EnableDiagnostics = True

' ball
Global body:TBody = TBodyFactory.CreateCircleBody(physics, 12, 1)
Global ball:TGeom = TGeomFactory.CreateCircleGeom(physics, body, 12, 20)
ball.SetRestitutionCoefficient(1)
body.SetPosition(Vector2.Create(400,300)) 

' walls
Local floorBody:TBody = TBodyFactory.CreateRectangleBody(physics,1024,20,1)
Local boden:TGeom = TGeomFactory.CreateRectangleGeom(physics, floorBody, 1024, 20)
boden.SetRestitutionCoefficient(0)
floorBody.SetPosition(Vector2.Create(1024/2,5))
floorBody.SetStatic(True) 

Local floorBody1:TBody = TBodyFactory.CreateRectangleBody(physics,1024,20,1)
Local boden1:TGeom = TGeomFactory.CreateRectangleGeom(physics, floorBody1, 1024, 20)
boden1.SetRestitutionCoefficient(2)
floorBody1.SetPosition(Vector2.Create(1024/2,768-5))
floorBody1.SetStatic(True) 

Local floorBody2:TBody = TBodyFactory.CreateRectangleBody(physics,20,768,1)
Local boden2:TGeom = TGeomFactory.CreateRectangleGeom(physics, floorBody2, 20, 768)
boden2.SetRestitutionCoefficient(0)
floorBody2.SetPosition(Vector2.Create(5,768/2))
floorBody2.SetStatic(True) 

Local floorBody3:TBody = TBodyFactory.CreateRectangleBody(physics,20,768,1)
Local boden3:TGeom = TGeomFactory.CreateRectangleGeom(physics, floorBody3, 20, 768)
boden3.SetRestitutionCoefficient(0)
floorBody3.SetPosition(Vector2.Create(1024-5,768/2))
floorBody3.SetStatic(True) 

While Not(KeyHit(KEY_ESCAPE))
	Update()
	Cls
	Draw()
	Flip
Wend

Function Update()
	physics.Update(.01)
	
	Local force:Vector2 = Vector2.Zero()
	Local speed:Float = 1000
	If KeyDown(KEY_UP) Then
		force.Y = -speed
	End If
	If KeyDown(KEY_DOWN) Then
		force.Y:+speed
	End If
	If KeyDown(KEY_LEFT) Then
		force.X:-speed
	End If
	If KeyDown(KEY_RIGHT) Then
		force.X:+speed
	End If
	body.ApplyForce(force)
End Function

Function Draw()
	viewer.Draw()
End Function