From 89e87826a8b5874cee1ce370315e0af4b9297000 Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Tue, 9 Mar 2010 06:08:42 +0100 Subject: Renamed shoot to bullet --- src/Render.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src/Render.hs') diff --git a/src/Render.hs b/src/Render.hs index d1276a3..fddfbcb 100644 --- a/src/Render.hs +++ b/src/Render.hs @@ -70,7 +70,7 @@ setup = do render :: Game () render = do tanklist <- gets tanks - shootlist <- gets shoots + bulletlist <- gets bullets textureWood <- getTexture TextureWood textureTank <- getTexture TextureTank @@ -139,10 +139,10 @@ render = do texCoord $ TexCoord2 (1 :: GLfloat) (0 :: GLfloat) vertex $ Vertex2 (0.5 :: GLfloat) (-0.5 :: GLfloat) - forM_ shootlist $ \shoot -> preservingMatrix $ do - let x = fromReal . shootX $ shoot - y = fromReal . shootY $ shoot - rotDir = fromReal . shootDir $ shoot + forM_ bulletlist $ \bullet -> preservingMatrix $ do + let x = fromReal . bulletX $ bullet + y = fromReal . bulletY $ bullet + rotDir = fromReal . bulletDir $ bullet translate $ Vector3 x y (0 :: GLfloat) rotate rotDir $ Vector3 0 0 (1 :: GLfloat) -- cgit v1.2.3