Refactor vao preload

2021-02-19 12:41:46 +01:00
parent f4db9bf9a1
commit f6efe98181
16 changed files with 441 additions and 485 deletions
@@ -41,9 +41,11 @@ setupLoop wName xSize ySize
                 (\_ -> bracket customInit initCleanup $ \setup -> do --  setup <- customInit
 --                            swapInterval $= ImmediateUpdates
                            GL.blend $= GL.Enabled
+                            GL.depthMask $= GL.Enabled
                            GL.blendEquation $= GL.FuncAdd
                            GL.blendFunc $= (GL.SrcAlpha,GL.OneMinusSrcAlpha)
-                            GL.clearColor $= GL.Color4 0 0.5 0 0
+                            GL.clearColor $= GL.Color4 0 0.5 0 1
+                            GL.clearDepth $= (200)
                            doLoop setup window startWorld
                                   sideEffects eventFn worldFn
                 )