neocturne/htanks
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Renamed shoot to bullet

Browse source
This commit is contained in:
Matthias Schiffer 2010-03-09 06:08:42 +01:00
parent 7327695ca3
commit 89e87826a8
3 changed files with 36 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/Render.hs
View file

@ -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)