1 files changed, 7 insertions, 7 deletions
diff --git a/Render.hs b/Render.hs
index 6505734..bd989b3 100644
--- a/Render.hs
+++ b/Render.hs
@@ -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