Improve normal maps on ground and walls

2023-03-19 23:52:19 +00:00
parent e90989ee2d
commit 33f31aa385
24 changed files with 112 additions and 178 deletions
@@ -42,14 +42,11 @@ drawShaderLay l countsVector shadIn fs = do
 drawShader :: FullShader -> Int -> IO ()
 {-# INLINE drawShader #-}
 drawShader fs i = do 
-    --currentProgram $= Just (_shadProg fs)
    glUseProgram (_shadName fs)
    glBindVertexArray $ fs ^. shadVAO . vaoName
-    --bindVertexArrayObject $= Just (_vaoName $ _shadVAO' fs)
    case _shadTex' fs of 
        Just ShaderTexture{_textureObject = txo
-                } --, _textureTarget = tt }
-            -- -> glBindTexture tt txo
+                }
            -> glBindTextureUnit 0 txo
        _   -> return ()
    glDrawArrays