Re-corrected coordinates... and new tank texture

1 files changed, 4 insertions, 3 deletions

diff --git a/HTanks.hs b/HTanks.hs
index 9ff45fe..c75aba2 100644
--- a/HTanks.hs
+++ b/HTanks.hs
@@ -39,7 +39,8 @@ runMain st (MainT a) = runStateT a st
 
 main :: IO ()
 main = do
-  gl <- initGL $ glxDriver 10 10
+  let theLevel = testLevel
+  gl <- initGL $ glxDriver (levelWidth theLevel) (levelHeight theLevel)
   
   when (initialized gl) $ do
          currentTime <- getCurrentTime
@@ -47,8 +48,8 @@ main = do
                                           [ SomePlayer $ DefaultPlayer S.empty 0 0
                                           , SomePlayer $ CPUPlayer 0
                                           ]}
-             gameState = GameState {level = testLevel, tanks = [ Tank 5.0 5.0 0 0 2 360 False
-                                                               , Tank 5.0 3.5 0 0 2 360 False
+             gameState = GameState {level = theLevel, tanks = [ Tank 5.0 5.0 0 0 2 270 False
+                                                               , Tank 5.0 3.5 0 0 2 270 False
                                                                ], textures = M.empty}
          
          runGame gameState $ do