From 2bb85618366681c7c97f8b36cc85a18c45beb924 Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <matthias@gamezock.de>
Date: Tue, 9 Mar 2010 03:19:34 +0100
Subject: Renamed some Tank and Shoot accessors

---
 Render.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'Render.hs')

diff --git a/Render.hs b/Render.hs
index a1a9850..d1276a3 100644
--- a/Render.hs
+++ b/Render.hs
@@ -99,10 +99,10 @@ render = do
              vertex $ Vertex2 (0 :: GLfloat) (0 :: GLfloat)
              
            forM_ tanklist $ \tank -> preservingMatrix $ do
-                                       let x = fromReal . posx $ tank
-                                           y = fromReal . posy $ tank
-                                           rotDir = fromReal . dir $ tank
-                                           rotAim = fromReal . aim $ tank
+                                       let x = fromReal . tankX $ tank
+                                           y = fromReal . tankY $ tank
+                                           rotDir = fromReal . tankDir $ tank
+                                           rotAim = fromReal . tankAim $ tank
                                        
                                        translate $ Vector3 x y (0 :: GLfloat)
                                        rotate rotDir $ Vector3 0 0 (1 :: GLfloat)
-- 
cgit v1.2.3