Working dynamic shadows using shape vertices buffer

2021-09-22 10:34:39 +01:00
parent 07e128bb04
commit 952ec1c579
16 changed files with 42 additions and 67 deletions
@@ -42,7 +42,7 @@ generateLevelFromRoomList gr w
    = updateWallZoning 
    . setupWorldBounds
 --    . initializeStaticWalls
-    . setupForegroundEdgeVerxs
+--    . setupForegroundEdgeVerxs
    . placeSpots plmnts
 --    . addRoomPolyDecorations rs
 --    . addRoomLinkDecorations rs
@@ -76,9 +76,6 @@ setupWorldBounds w = w
        <*> L.premap sndV2 L.maximum
        ) ps

-setupForegroundEdgeVerxs :: World -> World
-setupForegroundEdgeVerxs w = w & foregroundShape .~ (_foregroundDecorations w)
-
 polyhedrasToEdges :: [Polyhedra] -> [Point3]
 polyhedrasToEdges = concatMap tflat4 . concatMap polyToEdges