Various tweaks

src/Render.hs

@@ -7,14 +7,14 @@ import Data.Preload.Render
 import Picture.Data
 import Geometry.Data
 
-import Data.Foldable
+--import Data.Foldable
 import Foreign hiding (rotate)
 import Graphics.Rendering.OpenGL hiding (Line,translate,scale,imageHeight,Polygon,Color,T)
 import qualified SDL
 import qualified Data.Vector.Unboxed.Mutable as UMV
 import qualified Data.Vector.Mutable as MV
 import Control.Monad.Primitive
---import qualified Data.Vector.Fusion.Stream.Monadic as VS
+import qualified Data.Vector.Fusion.Stream.Monadic as VS
 
 divideSize :: Int -> Size -> Size
 divideSize i (Size x y) = Size (div x $ fromIntegral i) (div y $ fromIntegral i)
@@ -50,8 +50,8 @@ createLightMap pdata lightPoints nWalls nSils nsurfVs = do
     blendFunc $= (Zero, OneMinusSrcAlpha)
     stencilTest $= Enabled
     depthFunc $= Just Lequal
-    --flip VS.mapM_ (VS.fromList lightPoints) $ \(V3 x y z,r,lum) -> do
-    forM_ lightPoints $ \(V3 x y z,r,lum) -> do
+    flip VS.mapM_ (VS.fromList lightPoints) $ \(V3 x y z,r,lum) -> do
+    --forM_ lightPoints $ \(V3 x y z,r,lum) -> do
         -- stencil out shadows
         colorMask $= Color4 Disabled Disabled Disabled Disabled
         clear [StencilBuffer]