canvas/app/Types/Renderer.hs
2020-02-06 14:41:06 +01:00

16 lines
370 B
Haskell

module Types.Renderer where
import Graphics.Rendering.OpenGL as GL
data RenderObjects = RenderObjects
{ roVAO :: GL.VertexArrayObject
, roVBO :: GL.BufferObject
}
data GL.Uniform u => ShaderObjects u = Shaderobjects
{ soVertexShader :: GL.Shader
, soFragmentShader :: GL.Shader
, soProgram :: GL.Program
, soUniforms :: [(String, u)]
}