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
|
|
|
, shader ::
|
2020-02-06 06:53:22 +00:00
|
|
|
}
|
2020-02-06 10:15:41 +00:00
|
|
|
|
|
|
|
|
class Renderable a where
|
|
|
|
|
type VertexObjects :: *
|
|
|
|
|
|
|
|
|
|
draw = do
|
|
|
|
|
|
