Continue shape rendering improvements

src/Dodge/LevelGen/Data.hs

@@ -19,8 +19,8 @@ module Dodge.LevelGen.Data
     ) where
 import Dodge.Data
 import Picture
-import Polyhedra.Data
 import Geometry.Data
+import Shape.Data
 
 import Control.Lens
 import Control.Monad.State
@@ -40,7 +40,7 @@ data PSType = PutCrit {_unPutCrit :: Creature}
     | PutBtDoor Color Point2 Float Point2 Point2 Float
     | PutSwitchDoor Color Point2 Float Point2 Point2 Float
     | RandPS (State StdGen PSType)
-    | PutForeground [Polyhedra]
+    | PutForeground Shape
     | PutNothing
     | PutID { _putID :: Int}
 data PlacementSpot = PS