Commit before adding coloured light sources

src/Render.hs

@@ -34,7 +34,7 @@ createLightMap pdata lightPoints nWalls nSils nsurfVs = do
     depthFunc $= Just Less
     -- clear buffer to full alpha and furthest depth
     -- clearColor is specified in preloadRender
-    clearColor $= Color4 0 0 0 1
+    clearColor $= Color4 1 1 1 1
     clear [ColorBuffer,DepthBuffer]
     --colorMask $= Color4 Disabled Disabled Disabled Disabled
     cullFace $= Just Back
@@ -82,7 +82,8 @@ createLightMap pdata lightPoints nWalls nSils nsurfVs = do
 
         -- draw geometry surfaces
         cullFace $= Just Back
-        colorMask $= Color4 Disabled Disabled Disabled Enabled
+        --colorMask $= Color4 Disabled Disabled Disabled Enabled
+        colorMask $= Color4 Enabled Enabled Enabled Enabled
         stencilFunc $= (Equal, 0, 255)
         currentProgram $= Just (_shaderProgram $ _lightingSurfaceShader pdata)
         uniform (head $  _shaderCustomUnis $ _lightingSurfaceShader pdata)