diff options
author | Matthias Schiffer <matthias@gamezock.de> | 2010-04-12 14:40:31 +0200 |
---|---|---|
committer | Matthias Schiffer <matthias@gamezock.de> | 2010-04-12 14:40:31 +0200 |
commit | dafe16f191f99dc1199a5b386fad916a78c5c4f1 (patch) | |
tree | 35b889df1cfdbf696e0b2e68c1e17f3fca6a743e /src/HWiidPlayer.hs | |
parent | d56001cb33d5a6d688cfd97dba71408c8fff1f7d (diff) | |
download | htanks-dafe16f191f99dc1199a5b386fad916a78c5c4f1.tar htanks-dafe16f191f99dc1199a5b386fad916a78c5c4f1.zip |
Some improvements on coordinate calculation & player rendering
Diffstat (limited to 'src/HWiidPlayer.hs')
-rw-r--r-- | src/HWiidPlayer.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/HWiidPlayer.hs b/src/HWiidPlayer.hs index d1df2e5..db35871 100644 --- a/src/HWiidPlayer.hs +++ b/src/HWiidPlayer.hs @@ -5,7 +5,7 @@ module HWiidPlayer ( HWiidPlayer ) where import Control.Monad -import Data.Bits +import Data.Bits hiding (rotate) import Data.Function (on) import Data.List (sortBy) import Data.Maybe @@ -14,7 +14,7 @@ import Data.Typeable import HWiid import Graphics.Rendering.OpenGL.GL (GLfloat, Vector3(..)) import Graphics.Rendering.OpenGL.GL.BeginEnd (unsafeRenderPrimitive, PrimitiveMode(..)) -import Graphics.Rendering.OpenGL.GL.CoordTrans (unsafePreservingMatrix, translate) +import Graphics.Rendering.OpenGL.GL.CoordTrans (unsafePreservingMatrix, translate, rotate) import Graphics.Rendering.OpenGL.GL.VertexSpec @@ -65,7 +65,8 @@ instance Player HWiidPlayer where renderPlayer (HWiidPlayer _ _ aims) = unsafePreservingMatrix $ do let (x, y) = mulV (1/(fromIntegral $ length aims)) $ foldr addV (0, 0) aims - translate $ Vector3 x y (0 :: GLfloat) + translate $ Vector3 x y (0.2 :: GLfloat) + rotate 30 $ Vector3 1 0 (0 :: GLfloat) unsafeRenderPrimitive Quads $ do texCoord $ TexCoord2 (0 :: GLfloat) (0 :: GLfloat) |