Start migration to openGLraw, add target parameter to texture params

2023-03-03 11:20:31 +00:00
parent 8456f9e02e
commit f2e406b05c
7 changed files with 74 additions and 12 deletions
@@ -41,8 +41,10 @@ drawShader fs i = do
    currentProgram $= Just (_shadProg fs)
    bindVertexArrayObject $= Just (_vao $ _shadVAO fs)
    case _shadTex fs of 
-        Just ShaderTexture{_textureObject = txo}
-            -> textureBinding Texture2D $= Just txo
+        Just ShaderTexture{_textureObject = TextureObject txo
+                , _textureTarget = tt }
+--            -> textureBinding Texture2D $= Just txo
+            -> glBindTexture tt txo
        _   -> return ()
    glDrawArrays 
        (marshalEPrimitiveMode $ _shadPrim fs)