Initial pass at shadows from level geometry

src/Dodge/LevelGen.hs

@@ -21,6 +21,7 @@ import Dodge.LevelGen.Data
 import Geometry
 import Geometry.Data
 import Picture
+import Polyhedra
 import qualified IntMapHelp as IM
 
 --import System.Random
@@ -93,7 +94,7 @@ placeSpot ps w = case _psType ps of
       where 
         (q:qs) = map (shiftPointBy (p,rot)) ps'
         rmCrossPaths w' = foldr (uncurry removePathsCrossing) w' $ zip (q:qs) (qs++[q])
-    PutForeground pic -> w & foregroundDecorations %~ (uncurry translate p (rotate rot pic) :)
+    PutForeground poly -> w & foregroundDecorations %~ (map (uncurry translateXY p . rotateXY rot) poly ++)
     PutNothing -> w
     PutID _ -> w
     --_   -> w