Continue shape rendering improvements

src/Dodge/LevelGen.hs

@@ -19,9 +19,9 @@ import Dodge.LevelGen.TriggerDoor
 import Dodge.LevelGen.Switch
 import Dodge.LevelGen.Data
 import Geometry
+import Shape
 --import Geometry.Data
 import Picture
-import Polyhedra
 import qualified IntMapHelp as IM
 
 --import System.Random
@@ -99,7 +99,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 poly -> w & foregroundDecorations %~ (map (uncurryV translateXY p . rotateXY rot) poly ++)
+    PutForeground sh -> w & foregroundDecorations %~ ((uncurryV translateSHf p . rotateSH rot) sh <>)
     PutNothing -> w
     PutID _ -> w
     --_   -> w