diff options
author | Matthias Schiffer <matthias@gamezock.de> | 2010-03-09 06:08:42 +0100 |
---|---|---|
committer | Matthias Schiffer <matthias@gamezock.de> | 2010-03-09 06:08:42 +0100 |
commit | 89e87826a8b5874cee1ce370315e0af4b9297000 (patch) | |
tree | 7dc300a4b99cb35a09f7a9e81268c0d612a347a3 /src/Render.hs | |
parent | 7327695ca3d9aee5da1d0bc98572d877dd8c8546 (diff) | |
download | htanks-89e87826a8b5874cee1ce370315e0af4b9297000.tar htanks-89e87826a8b5874cee1ce370315e0af4b9297000.zip |
Renamed shoot to bullet
Diffstat (limited to 'src/Render.hs')
-rw-r--r-- | src/Render.hs | 10 |
1 files changed, 5 insertions, 5 deletions
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) |