minor fixture

2014-05-13 12:52:00 +02:00 · 2014-05-13 12:52:00 +02:00 · 13fbb9b816
commit 13fbb9b816
parent dd12f7b136
1 changed files with 3 additions and 3 deletions
--- 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"