Start translating shader compilation and linking to openglraw

2023-03-07 11:43:35 +00:00
parent f2e406b05c
commit e6ec46edce
4 changed files with 95 additions and 13 deletions
@@ -43,7 +43,6 @@ drawShader fs i = do
    case _shadTex fs of 
        Just ShaderTexture{_textureObject = TextureObject txo
                , _textureTarget = tt }
--            -> textureBinding Texture2D $= Just txo
            -> glBindTexture tt txo
        _   -> return ()
    glDrawArrays