diff options
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) |