added fog.

2014-04-21 15:55:22 +02:00
parent 85e1fe6325
commit 3de372f83f
3 changed files with 15 additions and 1 deletions
--- a/src/Render/Render.hs
+++ b/src/Render/Render.hs
@ -172,7 +172,7 @@ initHud = do

 initRendering :: IO ()
 initRendering = do
-        clearColor $= Color4 0 0 0 0
+        clearColor $= Color4 0.6 0.7 0.8 1
        depthFunc $= Just Less
        glCullFace gl_BACK
        checkError "initRendering"