init drawing
This commit is contained in:
parent
a9bf484525
commit
01e7f7120d
|
@ -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 ()
|
|
@ -109,6 +109,7 @@ main = do
|
||||||
SDL.glMakeCurrent win context
|
SDL.glMakeCurrent win context
|
||||||
mapM_ (eventHandler run) =<< SDL.pollEvents
|
mapM_ (eventHandler run) =<< SDL.pollEvents
|
||||||
GL.clear [GL.ColorBuffer, GL.DepthBuffer, GL.StencilBuffer]
|
GL.clear [GL.ColorBuffer, GL.DepthBuffer, GL.StencilBuffer]
|
||||||
|
draw state
|
||||||
GL.flush
|
GL.flush
|
||||||
SDL.glSwapWindow win
|
SDL.glSwapWindow win
|
||||||
) contexts
|
) contexts
|
||||||
|
|
Loading…
Reference in New Issue