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

Reorganized code to add Debris class

Browse source
This commit is contained in:
Matthias Schiffer 2010-03-15 14:46:14 +01:00
parent e85dc20a48
commit 90b8d87e02
11 changed files with 57 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/Render.hs
View file

@ -6,6 +6,7 @@ module Render ( setup
import Paths_htanks
import Game
import Level
import Tank
import Texture
import Control.Monad.State
@ -89,13 +90,13 @@ render = do
texCoord $ TexCoord2 (0 :: GLfloat) (0 :: GLfloat)
vertex $ Vertex2 0 lh
texCoord $ TexCoord2 lw 0
texCoord $ TexCoord2 (lw/2) 0
vertex $ Vertex2 lw lh
texCoord $ TexCoord2 lw lh
texCoord $ TexCoord2 (lw/2) (lh/2)
vertex $ Vertex2 lw 0
texCoord $ TexCoord2 0 lh
texCoord $ TexCoord2 0 (lh/2)
vertex $ Vertex2 (0 :: GLfloat) (0 :: GLfloat)
forM_ tanklist $ \tank -> preservingMatrix $ do