Add dependencies, play around with clouds/transparency layer

src/Render.hs

@@ -36,8 +36,9 @@ createLightMap
     -> [(Point3,Float,Point3)]             -- Lights
     -> Int -- ^ number of walls
     -> Int -- ^ number of silhoutte lines to draw
+    -> Int -- ^ number of "caps" to attempt to draw
     -> IO ()
-createLightMap pdata lightPoints nWalls nSils = do
+createLightMap pdata lightPoints nWalls nSils nCaps = do
     -- we assume that the renderbuffer's depth has been correctly set elsewhere
     -- we will not be changing that here
     depthMask $= Disabled
@@ -74,7 +75,7 @@ createLightMap pdata lightPoints nWalls nSils = do
         currentProgram $= Just (_shaderProgram $ _lightingCapShader pdata)
         uniform (head $  _shaderCustomUnis $ _lightingCapShader pdata)
             $= Vector3 x y z
-        drawShader (_lightingCapShader pdata) (nSils - 6)
+        drawShader (_lightingCapShader pdata) nCaps
         --draw lightmap itself
         depthFunc $= Just Always
         cullFace $= Nothing