diff options
author | Matthias Schiffer <matthias@gamezock.de> | 2010-02-23 15:05:31 +0100 |
---|---|---|
committer | Matthias Schiffer <matthias@gamezock.de> | 2010-02-23 15:05:31 +0100 |
commit | 9772130708a4ed069ad00ee1652ba6d0eea81766 (patch) | |
tree | 7cf2088a56284444efbee69bedd14db7dd11fb90 /Render.hs | |
parent | f10352a0f1626ce1475acb9c27067e52e90a20fb (diff) | |
download | htanks-9772130708a4ed069ad00ee1652ba6d0eea81766.tar htanks-9772130708a4ed069ad00ee1652ba6d0eea81766.zip |
Added buffer swap and some other things to the GLX backend and main loop
Diffstat (limited to 'Render.hs')
-rw-r--r-- | Render.hs | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/Render.hs b/Render.hs new file mode 100644 index 0000000..d871678 --- /dev/null +++ b/Render.hs @@ -0,0 +1,14 @@ +module Render ( render + ) where + + +import Game + +import Control.Monad.State +import Graphics.Rendering.OpenGL.GL.Framebuffer (clear, ClearBuffer(..)) + + +render :: Game () +render = do + liftIO $ clear [ColorBuffer] +
\ No newline at end of file |