src/Vivant/Renderer.hs


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 ()