canvas/app/Types/Renderer.hs

16 lines
370 B
Haskell
Raw Normal View History

2020-02-06 06:53:22 +00:00
module Types.Renderer where
import Graphics.Rendering.OpenGL as GL
data RenderObjects = RenderObjects
{ roVAO :: GL.VertexArrayObject
, roVBO :: GL.BufferObject
}
2020-02-06 10:15:41 +00:00
2020-02-06 13:41:06 +00:00
data GL.Uniform u => ShaderObjects u = Shaderobjects
{ soVertexShader :: GL.Shader
, soFragmentShader :: GL.Shader
, soProgram :: GL.Program
, soUniforms :: [(String, u)]
}