diff options
| author | Matthias Schiffer <matthias@gamezock.de> | 2010-03-15 14:46:14 +0100 |
|---|---|---|
| committer | Matthias Schiffer <matthias@gamezock.de> | 2010-03-15 14:46:14 +0100 |
| commit | 90b8d87e02bfb0d1d3d10c3b824df8fd8ce37a9f (patch) | |
| tree | 35f51096c034e881198447671896535dafcdbe69 /src/Render.hs | |
| parent | e85dc20a4869c91faa3869695d2d19bfe07f9abc (diff) | |
| download | htanks-90b8d87e02bfb0d1d3d10c3b824df8fd8ce37a9f.tar htanks-90b8d87e02bfb0d1d3d10c3b824df8fd8ce37a9f.zip | |
Reorganized code to add Debris class
Diffstat (limited to 'src/Render.hs')
| -rw-r--r-- | src/Render.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Render.hs b/src/Render.hs index fddfbcb..e243580 100644 --- a/src/Render.hs +++ b/src/Render.hs @@ -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 |