Commit before attempt to remove geometry shaders from shadow extrusion

src/Dodge/Layout.hs

@@ -3,6 +3,7 @@ module Dodge.Layout (
     generateLevelFromRoomList,
 ) where
 
+import Dodge.Path.Translate
 import qualified Control.Foldl as L
 import Control.Lens
 import Data.Foldable
@@ -44,7 +45,7 @@ generateLevelFromRoomList gr' w =
         . worldToGenWorld rs'
         $ w & cWorld . lWorld . walls .~ wallsFromRooms rs
             & cWorld . cwGen . cwgGameRooms .~ gameRoomsFromRooms (IM.elems rs')
-            & cWorld . lWorld . pathGraph .~ path
+            & cWorld . pathGraph .~ path
             & pnZoning .~ foldl' (flip zonePn) mempty (labNodes path)
             & peZoning .~ foldl' (flip zonePe) mempty (map fromEdgeTuple $ labEdges path)
   where
@@ -54,8 +55,6 @@ generateLevelFromRoomList gr' w =
     rs = map doRoomShift $ IM.elems rs'
     rs' = mapM shuffleRoomPos gr' & evalState $ _randGen w
 
-fromEdgeTuple :: (Int, Int, PathEdge) -> PathEdgeNodes
-fromEdgeTuple (a, b, pe) = PathEdgeNodes a b pe
 
 randomCompass :: World -> World
 randomCompass w = w & cWorld . camPos . camRot .~ (takeOne [0, 0.5 * pi, pi, 1.5 * pi] & evalState $ _randGen w)