init drawing

This commit is contained in:
nek0 2019-02-01 11:54:38 +01:00
parent a9bf484525
commit 01e7f7120d
2 changed files with 12 additions and 0 deletions

11
src/Draw.hs Normal file
View File

@ -0,0 +1,11 @@
module Draw where
import Control.Concurrent.MVar
-- internal imports
import Types
draw :: MVar State -> Word -> IO ()
draw state ident = do
return ()

View File

@ -109,6 +109,7 @@ main = do
SDL.glMakeCurrent win context
mapM_ (eventHandler run) =<< SDL.pollEvents
GL.clear [GL.ColorBuffer, GL.DepthBuffer, GL.StencilBuffer]
draw state
GL.flush
SDL.glSwapWindow win
) contexts