nek0/renderer-tutorial
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

uniform work now

Browse source
This commit is contained in:
nek0 2020-05-17 13:37:59 +02:00
parent d566595b1c
commit 5390c2c57d
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Main.hs
View file

@ -135,6 +135,14 @@ main = do
sp <- createShaderProgram vertSrc fragSrc sp <- createShaderProgram vertSrc fragSrc
GL.currentProgram $= Just sp GL.currentProgram $= Just sp
-- -- UNIFORMS
-- get the uniform's location out of the shader program
uniLoc <- get $ GL.uniformLocation sp "u_color"
-- write data to the uniform
GL.uniform uniLoc $= (GL.Color4 1 0.5 0 1 :: GL.Color4 GL.GLfloat)
err <- get GL.errors err <- get GL.errors
print $ "pre-loop errors: " <> show err print $ "pre-loop errors: " <> show err