From f8faab6fe6af1515f7e363e7f5454040e0f60074 Mon Sep 17 00:00:00 2001
From: Luke Lau <luke_lau@icloud.com>
Date: Mon, 8 Oct 2018 14:31:06 +0100
Subject: [PATCH] Remove redundant perspective' function

---
 Main.hs | 9 ---------
 1 file changed, 9 deletions(-)

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]
-- 
2.30.2