Working shadows on clouds

src/Render.hs

@@ -37,8 +37,9 @@ createLightMap
     -> Int -- ^ number of walls
     -> Int -- ^ number of silhoutte lines to draw
     -> Int -- ^ number of "caps" to attempt to draw
+    -> TextureObject -- ^ the texture object giving positions
     -> IO ()
-createLightMap pdata lightPoints nWalls nSils nCaps = do
+createLightMap pdata lightPoints nWalls nSils nCaps toPos = do
     -- we assume that the renderbuffer's depth has been correctly set elsewhere
     -- we will not be changing that here
     depthMask $= Disabled
@@ -79,7 +80,7 @@ createLightMap pdata lightPoints nWalls nSils nCaps = do
         --draw lightmap itself
         depthFunc $= Just Always
         cullFace $= Nothing
-        bindTO $ snd $ snd $ _fboBase pdata
+        bindTO toPos
         colorMask $= Color4 Enabled Enabled Enabled Enabled
         stencilOp $= (OpKeep,OpKeep,OpKeep)
         stencilFunc $= (Equal, 0, 255)