Continue work on shadow rendering

2023-03-14 11:20:38 +00:00
parent 9947979b52
commit 6af041bb8c
20 changed files with 417 additions and 380 deletions
@@ -35,7 +35,7 @@ makeShader s shaderlist sizes pm = do
    vaob <- setupVAO sizes
    return $
        FullShader
-            { _shadProg' = prog
+            { _shadName = prog
            , _shadVAO' = vaob
            , _shadPrim' = pm
            , _shadTex' = Nothing
@@ -54,7 +54,7 @@ makeByteStringShaderUsingVAO s shaderlist pm vao = do
    prog <- makeShaderProgram s shaderlist
    return $
        FullShader
-            { _shadProg' = prog
+            { _shadName = prog
            , _shadVAO' = vao
            , _shadPrim' = pm
            , _shadTex' = Nothing
@@ -74,7 +74,7 @@ makeShaderUsingVAO s shaderlist pm theVAO = do
    prog <- makeSourcedShader s shaderlist
    return $
        FullShader
-            { _shadProg' = prog
+            { _shadName = prog
            , _shadVAO' = theVAO
            , _shadPrim' = pm
            , _shadTex' = Nothing
@@ -101,7 +101,7 @@ makeShaderSized s shaderlist sizes ndraw pm = do
    vaob <- setupVAOSized ndraw sizes
    return $
        FullShader
-            { _shadProg' = prog
+            { _shadName = prog
            , _shadVAO' = vaob
            , _shadPrim' = pm
            , _shadTex' = Nothing