From 13fbb9b81616f854b30b8bff2afd91ef332b152f Mon Sep 17 00:00:00 2001
From: Stefan Dresselhaus <sdressel@techfak.uni-bielefeld.de>
Date: Tue, 13 May 2014 12:52:00 +0200
Subject: [PATCH] minor fixture

---
 src/Render/Render.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Render/Render.hs b/src/Render/Render.hs
index c51bbd9..6d49e27 100644
--- a/src/Render/Render.hs
+++ b/src/Render/Render.hs
@@ -403,14 +403,14 @@ render = do
         checkError "setting up shadowmap-program"
 
         --set up projection (= copy from state)
-        --TODO: Fix
+        --TODO: Fix width/depth
         with (distribute (createFrustumOrtho 20 20 0 100)) $ \ptr ->
               glUniformMatrix4fv proj 1 0 (castPtr (ptr :: Ptr (L.M44 CFloat)))
         checkError "copy shadowmap-projection"
 
         --set up camera
-        --TODO: Fix
-        let ! cam = getCam camPos zDist' xa ya
+        --TODO: Fix magic constants... and camPos
+        let ! cam = getCam camPos 1 0.7 0
         with (distribute cam) $ \ptr ->
               glUniformMatrix4fv vmat 1 0 (castPtr (ptr :: Ptr (L.M44 CFloat)))
         checkError "copy shadowmap-cam"