22 lines
388 B
Haskell
22 lines
388 B
Haskell
|
module Renderer where
|
||
|
|
||
|
import SDL (($=), get)
|
||
|
|
||
|
import qualified Graphics.Rendering.OpenGL as GL
|
||
|
|
||
|
import Foreign.Ptr
|
||
|
|
||
|
-- internal imports
|
||
|
|
||
|
import BindableClass
|
||
|
import VertexArray
|
||
|
import IndexBuffer
|
||
|
import Shader
|
||
|
|
||
|
draw :: VertexArray -> (IndexBuffer a) -> Shader -> IO ()
|
||
|
draw va ib sp = do
|
||
|
bind sp
|
||
|
bind va
|
||
|
bind ib
|
||
|
GL.drawElements GL.Triangles (iBufCount ib) GL.UnsignedInt nullPtr
|