From bc247b19550b58ce8e9f6ab82ac7607c8713de44 Mon Sep 17 00:00:00 2001
From: Joshua Rahm <joshua.rahm@colorado.edu>
Date: Tue, 22 Apr 2014 00:27:21 -0600
Subject: added stuff for sun

---
 Graphics/Glyph/GLMath.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'Graphics/Glyph/GLMath.hs')

diff --git a/Graphics/Glyph/GLMath.hs b/Graphics/Glyph/GLMath.hs
index 7b454e2..cd0fd53 100644
--- a/Graphics/Glyph/GLMath.hs
+++ b/Graphics/Glyph/GLMath.hs
@@ -92,6 +92,12 @@ module Graphics.Glyph.GLMath where
                        sz, uz, -fz, 0,
                        -(s<.>e) , -(u'<.>e),  (f<.>e),  1 )
 
+    orthoMatrix :: GLfloat -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> Mat4 GLfloat
+    orthoMatrix top bot right left near far =
+        Matrix4 (2 / (right-left), 0, 0, - (right + left) / (right - left),
+                 0, 2 / (top-bot), 0, - (top+bot) / (top-bot),
+                 0, 0, -2 / (far-near), - (far+near) / (far - near),
+                 0, 0, 0, 1)
     perspectiveMatrix :: GLfloat -> GLfloat -> GLfloat -> GLfloat -> Mat4 GLfloat
     {- as close to copied from glm as possible -}
     perspectiveMatrix fov asp zn zf =
-- 
cgit