diff options
Diffstat (limited to 'src/DefaultPlayer.hs')
| -rw-r--r-- | src/DefaultPlayer.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/DefaultPlayer.hs b/src/DefaultPlayer.hs index 7f97f39..e16502a 100644 --- a/src/DefaultPlayer.hs +++ b/src/DefaultPlayer.hs @@ -8,7 +8,7 @@ import qualified Data.Set as S import Data.Fixed import Data.Ratio ((%)) import Data.Typeable -import Graphics.Rendering.OpenGL.GL (GLfloat, Vector3(..)) +import Graphics.Rendering.OpenGL.GL (GLfloat, Vector3(..), Vertex2(..)) import Graphics.Rendering.OpenGL.GL.BeginEnd (unsafeRenderPrimitive, PrimitiveMode(..)) import Graphics.Rendering.OpenGL.GL.CoordTrans (unsafePreservingMatrix, translate, rotate) import Graphics.Rendering.OpenGL.GL.VertexSpec @@ -41,7 +41,7 @@ instance Player DefaultPlayer where | otherwise = DefaultPlayer keys aimx aimy shoot renderPlayer (DefaultPlayer _ aimx aimy _) = unsafePreservingMatrix $ do - translate $ Vector3 aimx aimy (0.2 :: GLfloat) + translate $ Vector3 (realToFrac aimx) (realToFrac aimy) (0.2 :: GLfloat) rotate 30 $ Vector3 1 0 (0 :: GLfloat) unsafeRenderPrimitive Quads $ do |