blob: ca623e76683be8fa0ca01e4d8d8e361a873857f7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
module Vivant.Renderer
(Renderer(..))
where
import qualified Graphics.Rendering.OpenGL as GL
import Linear
import Foreign.Ptr
data Renderer = Renderer
{ rendererProgram :: Maybe GL.Program,
rendererVao :: Maybe GL.VertexArrayObject,
rendererModelP :: Ptr (M44 Float)
} deriving Show
draw :: Renderer -> IO ()
|