Tweak drawing parameters

src/Picture/Render.hs

@@ -71,6 +71,7 @@ createLightMap pdata resDiv wallPoints lightPoints (viewFromx,viewFromy) _ = do
     bindShaderBuffers [_lightingWallShader pdata] [nWallLights]
     nWalls <- F.foldM (pokeShader $ _lightingOccludeShader pdata) (map Render22 wallPoints)
     bindShaderBuffers [_lightingOccludeShader pdata] [nWalls]
+
 -- clear buffer to full alpha and furthest depth
 -- clearColor is specified in preloadRender
     clear [ColorBuffer,DepthBuffer]
@@ -102,12 +103,6 @@ createLightMap pdata resDiv wallPoints lightPoints (viewFromx,viewFromy) _ = do
         pokeFourOff lightPtr 0 (x,y,r,lum)
         bindShaderBuffers [_lightingFloorShader pdata] [1]
 
-        nsurfVs <- F.foldM (pokeShader (_lightingSurfaceShader pdata)) [Render3 
-            [(0,0,0.1)
-            ,(500,0,0.1)
-            ,(-500,500,0.1)
-            ] ]
-        bindShaderBuffers [_lightingSurfaceShader pdata] [nsurfVs]
         
 -- stencil out walls
         colorMask $= Color4 Disabled Disabled Disabled Disabled