Renamed some Tank and Shoot accessors

1 files changed, 4 insertions, 4 deletions

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)