X-Git-Url: http://git.lukelau.me/?p=opengl-haskell.git;a=blobdiff_plain;f=Main.hs;h=60aec4b5e7fb8fe0bdd67608c7c2a1ea219b2cab;hp=ce545a8ec9b7f98fda2c5f15e41f794d043a0f0c;hb=HEAD;hpb=7816decfd2e770e9f0f90d1c27bef59d79d80706

diff --git a/Main.hs b/Main.hs
index ce545a8..60aec4b 100644
--- a/Main.hs
+++ b/Main.hs
@@ -129,12 +129,3 @@ loadShader program shaderType file = do
   unless status $
     get (shaderInfoLog shader) >>= fail . ("shader failed " ++)
   attachShader program shader
-
-perspective' :: Float -> Float -> Float -> Float -> IO (GLmatrix Float)
-perspective' fov aspect zNear zFar =
-  let f = 1.0 / tan(fov)
-  in newMatrix RowMajor
-                [f / aspect, 0, 0, 0,
-                 0, f, 0, 0,
-                 0, 0, (zNear + zFar) / (zNear - zFar), -1,
-                 0, 0, (2 * zFar * zNear) / (zNear - zFar), 0]