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