Initial pass at shadows from level geometry

src/Dodge/Render.hs

@@ -14,7 +14,7 @@ import Dodge.Render.Picture
 import Geometry
 import Geometry.Data
 --import Picture
-import Picture.Render
+import Render
 import Data.Preload.Render
 import Picture.Data
 import Picture.Tree
@@ -22,6 +22,8 @@ import Shader
 import Shader.Data
 import Shader.Poke
 import MatrixHelper
+--import Polyhedra.Data
+import Polyhedra
 
 import Foreign
 --import Control.Applicative
@@ -102,7 +104,8 @@ doDrawing pdata w = do
 
     depthMask $= Enabled
     depthFunc $= Just Lequal
-    _ <- renderFoldable pdata $ picToLTree (Just 0) (foregroundPics w)
+    _ <- renderFoldable pdata $ picToLTree (Just 0) (polysToPic $ foregroundPics w)
+            --(Pictures $ concatmap (Poly3D 0 . _pyFaces) (foregroundPics w))
 
     -- draw the fbo to the screen
     -- allows for post-processing