justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Fix wall normals

Browse Source
This commit is contained in:
justin
2023-03-16 23:31:17 +00:00
parent 100fdc102d
commit 539cbe8b18
11 changed files with 32 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Shader/Compile.hs
+5 -5
View File
@@ -42,7 +42,7 @@ makeShader s shaderlist sizes pm = do
, _shadVAO = vao
, _shadPrim' = pm
, _shadTex' = Nothing
, _shadUnis' = mempty
, _shadUnis = mempty
}
, vbo)
@@ -66,7 +66,7 @@ makeShader4 s shaderlist sizes strd pm vbo = do
, _shadVAO = vao
, _shadPrim' = pm
, _shadTex' = Nothing
, _shadUnis' = mempty
, _shadUnis = mempty
}
setupVBO :: Int -> IO VBO
@@ -96,7 +96,7 @@ makeByteStringShaderUsingVAO s shaderlist pm vao = do
, _shadVAO = vao
, _shadPrim' = pm
, _shadTex' = Nothing
, _shadUnis' = mempty
, _shadUnis = mempty
}
-- | Takes the VAO from elsewhere
@@ -116,7 +116,7 @@ makeShaderUsingVAO s shaderlist pm theVAO = do
, _shadVAO = theVAO
, _shadPrim' = pm
, _shadTex' = Nothing
, _shadUnis' = mempty
, _shadUnis = mempty
}
{- |
@@ -142,7 +142,7 @@ makeShaderSized s shaderlist sizes ndraw pm = do
, _shadVAO = vao
, _shadPrim' = pm
, _shadTex' = Nothing
, _shadUnis' = mempty
, _shadUnis = mempty
}
, vbo)