summaryrefslogtreecommitdiffstats
path: root/HTanks.hs
diff options
context:
space:
mode:
Diffstat (limited to 'HTanks.hs')
-rw-r--r--HTanks.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/HTanks.hs b/HTanks.hs
index c27cb81..9ff45fe 100644
--- a/HTanks.hs
+++ b/HTanks.hs
@@ -39,7 +39,7 @@ runMain st (MainT a) = runStateT a st
main :: IO ()
main = do
- gl <- initGL glxDriver
+ gl <- initGL $ glxDriver 10 10
when (initialized gl) $ do
currentTime <- getCurrentTime
@@ -47,8 +47,8 @@ main = do
[ SomePlayer $ DefaultPlayer S.empty 0 0
, SomePlayer $ CPUPlayer 0
]}
- gameState = GameState {level = testLevel, tanks = [ Tank 0.0 0.0 0 0 2 360 False
- , Tank 0.0 (-1.5) 0 0 2 360 False
+ 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
], textures = M.empty}
runGame gameState $ do