Play around with terminal messages

2025-09-20 01:07:23 +01:00
parent b837e6a798
commit b270e18556
10 changed files with 170 additions and 126 deletions
@@ -27,9 +27,11 @@ generateWorldFromSeed rdata i = do
    generateGraphs
    (roomList, bounds) <- layoutLevelFromSeed 0 i
    postGenerationProcessing rdata
-        $! generateLevelFromRoomList roomList initialWorld{_randGen = mkStdGen i}
-        & gwWorld . cWorld . cwGen . cwgRoomClipping .~ bounds
-        & gwWorld . cWorld . cwGen . cwgSeed .~ i
+        $! generateLevelFromRoomList roomList $ initialWorld{_randGen = mkStdGen i}
+        & cWorld . cwGen . cwgRoomClipping .~ bounds
+        & cWorld . cwGen . cwgSeed .~ i
+--        & gwWorld . cWorld . cwGen . cwgRoomClipping .~ bounds
+--        & gwWorld . cWorld . cwGen . cwgSeed .~ i

 postGenerationProcessing :: RenderData -> GenWorld -> IO World
 postGenerationProcessing _ gw = do