Added setAnimationSpeed

1 files changed, 9 insertions, 0 deletions

diff --git a/Spear/Scene/GameObject.hs b/Spear/Scene/GameObject.hs
index 2efadf0..37374cc 100644
--- a/Spear/Scene/GameObject.hs
+++ b/Spear/Scene/GameObject.hs
@@ -2,10 +2,12 @@ module Spear.Scene.GameObject
 (
     GameObject
 ,   GameStyle(..)
+,   AnimationSpeed
     -- * Construction
 ,   goNew
     -- * Manipulation
 ,   goUpdate
+,   Spear.Scene.GameObject.setAnimationSpeed
 ,   goAABB
     -- * Rendering
 ,   goRender
@@ -190,6 +192,13 @@ goCollide gos go = foldl' collide' [] gos
         collide' gos target = target:gos
 
 
+-- | Set the game object's animation speed.
+setAnimationSpeed :: AnimationSpeed -> GameObject -> GameObject
+setAnimationSpeed s go = case renderer go of
+    Left _ -> go
+    Right amr -> go { renderer = Right $ AM.setAnimationSpeed s amr } 
+
+
 -- | Get the game object's bounding box.
 goAABB :: GameObject -> AABB
 goAABB go =