Remove wall sight occlusion for lighting changes

src/Picture/Render.hs

@@ -131,6 +131,19 @@ renderPicture' pdata rot zoom (tranx,trany) (winx,winy) wallPoints lightPoints p
     ticks4 <- renderFoldable pdata rot zoom (tranx,trany) (winx,winy) $ picToLTree (Just 2) pic
     bticks <- SDL.ticks
 
+---- render walls
+--    blendFunc $= (SrcAlpha,OneMinusSrcAlpha)
+--    -- poke data
+--    let lights = map (\(x,y,r,g) -> ((x,y),(r,g,0,0))) lightPoints
+--        wallPairs = map (\(a,b,_,_) -> [(a,(1,1,1,1)),(b,(1,1,1,1))]) wallPoints
+--    i <- F.foldM (pokeShader (_wallShader pdata)) $ concat $ (:) <$> lights <*> wallPairs
+--
+--    -- bind buffers
+--    bindShaderBuffers [_wallShader pdata] [i]
+--
+--    -- draw call
+--    drawShaders [_wallShader pdata] [i]
+
     resetShaderUniforms (map extractProgAndUnis $ _listShaders pdata)
 
     endWallTicks <- SDL.ticks