From 3b6e46ae6bb91a8f6bb9b1917f627f6e7f181d9b Mon Sep 17 00:00:00 2001
From: Marc Sunet <jeannekamikaze@gmail.com>
Date: Wed, 29 Aug 2012 18:15:35 +0200
Subject: Added setAnimationSpeed

---
 Spear/Scene/GameObject.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

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 =
-- 
cgit v1.2.3