From a19dc0d6aa982d138f46305cdea6443cb45a5fd3 Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Fri, 16 Apr 2010 03:08:48 +0200 Subject: Added more models and render with perspective transform now --- src/GLX.hs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'src/GLX.hs') diff --git a/src/GLX.hs b/src/GLX.hs index 9ad6392..8dbca6a 100644 --- a/src/GLX.hs +++ b/src/GLX.hs @@ -11,7 +11,7 @@ import Data.Maybe (isJust) import Data.Ratio import Graphics.Rendering.OpenGL.GL (($=), GLdouble, GLfloat, Vector3(..), Capability(..)) -import Graphics.Rendering.OpenGL.GL.CoordTrans (matrixMode, MatrixMode(..), viewport, Position(..), Size(..), loadIdentity, ortho, translate, scale, rotate) +import Graphics.Rendering.OpenGL.GL.CoordTrans (matrixMode, MatrixMode(..), viewport, Position(..), Size(..), loadIdentity, ortho, translate, scale, rotate, frustum) import Graphics.X11.Types import Graphics.X11.Xlib.Atom (internAtom) @@ -205,10 +205,11 @@ resize lw lh w h = do matrixMode $= Projection loadIdentity - ortho (-sf*aspectf) (sf*aspectf) (-sf) sf (-1) 1 - scale 1 1 (0.1 :: GLfloat) + --ortho (-sf*aspectf) (sf*aspectf) (-sf) sf (-1) 1 + --scale 1 1 (0.1 :: GLfloat) + frustum (-sf*aspectf) (sf*aspectf) (-sf) sf 10 100 rotate (-30) $ Vector3 1 0 (0 :: GLfloat) - translate $ Vector3 (-(fromIntegral lw)/2) (-(fromIntegral lh)/2) (0 :: GLfloat) + translate $ Vector3 (-(fromIntegral lw)/2) ((fromIntegral lh)/2) (-11 :: GLfloat) matrixMode $= Modelview 0 -- cgit v1.2.3