Added more models and render with perspective transform now

1 files changed, 5 insertions, 4 deletions

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