From: Luke Lau <luke_lau@icloud.com>
Date: Mon, 8 Oct 2018 13:31:06 +0000 (+0100)
Subject: Remove redundant perspective' function
X-Git-Url: https://git.lukelau.me/?p=opengl-haskell.git;a=commitdiff_plain

Remove redundant perspective' function
---

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]