Continue shape rendering improvements

src/Dodge/Layout.hs

@@ -24,7 +24,6 @@ import Picture.Data
 import Tile
 import Polyhedra
 import Polyhedra.Data
-import Shape
 
 import Control.Monad.State
 import Control.Lens
@@ -78,11 +77,7 @@ setupWorldBounds w = w
         ) ps
 
 setupForegroundEdgeVerxs :: World -> World
-setupForegroundEdgeVerxs w = w & foregroundEdgeVerx .~ polyhedrasToEdges (_foregroundDecorations w)
-    & foregroundShape .~ ([ShapeObj ListV vs],es)
-  where
-    vs = shVfromList $ map pairToSV $ concatMap polyToTris $ concatMap _pyFaces $ _foregroundDecorations w
-    es = shEfromList $ polyhedrasToEdges (_foregroundDecorations w)
+setupForegroundEdgeVerxs w = w & foregroundShape .~ (_foregroundDecorations w)
 
 polyhedrasToEdges :: [Polyhedra] -> [Point3]
 polyhedrasToEdges = concatMap tflat4 . concatMap polyToEdges