Remove wall corner collision test for creatures

2021-09-24 11:31:08 +01:00
parent 1883e0785e
commit 899cf6ef81
10 changed files with 47 additions and 76 deletions
@@ -75,8 +75,8 @@ createLightMap pdata lightPoints nWalls nSils nCaps toPos = do
            nullPtr
        cullFace $= Just Back
        --draw caps on the near plane as required
-        currentProgram $= Just (_shadProg $ lcShad)
-        uniform (head $  _shadUnis $ lcShad)
+        currentProgram $= Just (_shadProg lcShad)
+        uniform (head $  _shadUnis lcShad)
            $= Vector3 x y z
        bindVertexArrayObject $= Just (_vao $ _shadVAO lcShad)
        glDrawElements