diff options
author | Matthias Schiffer <matthias@gamezock.de> | 2010-03-08 19:31:48 +0100 |
---|---|---|
committer | Matthias Schiffer <matthias@gamezock.de> | 2010-03-08 19:31:48 +0100 |
commit | d8cf601ac2aa36e299e5d50e246f73497409a110 (patch) | |
tree | 2b948bdf283eb6c29046f542f83cca8128604ae0 /Render.hs | |
parent | 000f7b30b74e0d64c8c33c3617a249061ce4eb21 (diff) | |
download | htanks-d8cf601ac2aa36e299e5d50e246f73497409a110.tar htanks-d8cf601ac2aa36e299e5d50e246f73497409a110.zip |
Corrected some coordinate calculations
Diffstat (limited to 'Render.hs')
-rw-r--r-- | Render.hs | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -80,16 +80,16 @@ render = do renderPrimitive Quads $ do texCoord $ TexCoord2 (0 :: GLfloat) (0 :: GLfloat) - vertex $ Vertex2 (-0.5*lw) (-0.5*lh) + vertex $ Vertex2 0 lh - texCoord $ TexCoord2 0 lw - vertex $ Vertex2 (-0.5*lw) (0.5*lh) + texCoord $ TexCoord2 lw 0 + vertex $ Vertex2 lw lh - texCoord $ TexCoord2 lh lw - vertex $ Vertex2 (0.5*lw) (0.5*lh) + texCoord $ TexCoord2 lw lh + vertex $ Vertex2 lw 0 - texCoord $ TexCoord2 lh (0 :: GLfloat) - vertex $ Vertex2 (0.5*lw) (-0.5*lh) + texCoord $ TexCoord2 0 lh + vertex $ Vertex2 (0 :: GLfloat) (0 :: GLfloat) forM_ tanklist $ \tank -> preservingMatrix $ do let x = fromReal . posx $ tank |