1 files changed, 12 insertions, 0 deletions

diff --git a/Spear/Physics/Rigid.hs b/Spear/Physics/Rigid.hs
index b9c84d2..c3b4cfa 100644
--- a/Spear/Physics/Rigid.hs
+++ b/Spear/Physics/Rigid.hs
@@ -4,6 +4,8 @@ module Spear.Physics.Rigid
 ,   RigidBody(..)
 ,   rigidBody
 ,   update
+,   setVelocity
+,   setAcceleration
 )
 where
 
@@ -79,6 +81,16 @@ update forces dt body =
         RigidBody m r2 v2 a2
 
 
+-- | Set the body's velocity.
+setVelocity :: Velocity -> RigidBody -> RigidBody
+setVelocity v body = body { velocity = v }
+
+
+-- | Set the body's acceleration.
+setAcceleration :: Acceleration -> RigidBody -> RigidBody
+setAcceleration a body = body { acceleration = a }
+
+
 -- test
 gravity = vec3 0 (-10) 0
 b0 = rigidBody 50 $ vec3 0 1000 0