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

Work on vertex attributes

Browse Source
This commit is contained in:
justin
2023-04-12 23:11:56 +01:00
parent 2494f2cf8d
commit 11b8fe2e06
5 changed files with 55 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Preload/Render.hs
+4 -3
View File
@@ -101,13 +101,14 @@ preloadRender = do
shadowwallshader <-
makeShaderUsingVBO "shadow/wallShadow" [vert, geom] [4] pmPoints wallvbo
shadowlightshader <-
makeShaderSized
makeShaderFixedVertices
"shadow/light"
[vert, geom, frag]
[1]
1
pmPoints
shadowcombineshader <- makeShaderSized "shadow/combine" [vert, geom, frag] [1] 1 pmPoints
shadowcombineshader <- makeShaderUsingVAO "shadow/combine" [vert, geom, frag] pmPoints
(shadowlightshader ^. _1 . shaderVAO)
poke (shadVBOptr shadowlightshader) 1
putStrLn "Setup 2D shaders"
@@ -130,7 +131,7 @@ preloadRender = do
(fromIntegral $ floatSize * length (concat cornerList))
ptr
0
screentexturevao <- setupVAOvbo' [2, 2] 4 screentexturevbo
screentexturevao <- setupVAOvbo (toFloatVAs [2, 2]) 4 screentexturevbo
alphadivideshader <- makeShaderUsingVAO "texture2D/alphaDivide" [vert, frag] pmTriangleStrip screentexturevao
fsShad <- makeShaderUsingVAO "texture/simple" [vert, frag] pmTriangleStrip screentexturevao
bloomBlurShad <- makeShaderUsingVAO "texture/bloomBlur" [vert, frag] pmTriangleStrip screentexturevao