15 lines
256 B
Haskell
15 lines
256 B
Haskell
module Types.Renderer where
|
|
|
|
import Graphics.Rendering.OpenGL as GL
|
|
|
|
data RenderObjects = RenderObjects
|
|
{ roVAO :: GL.VertexArrayObject
|
|
, roVBO :: GL.BufferObject
|
|
, shader ::
|
|
}
|
|
|
|
class Renderable a where
|
|
type VertexObjects :: *
|
|
|
|
draw = do
|
|
|