Work towards cross-room placements

2021-11-12 11:13:59 +00:00
parent d63c2ac943
commit 1d5b2ea765
20 changed files with 147 additions and 165 deletions
@@ -20,7 +20,7 @@ import System.Random

 rezBox :: Room
 rezBox = shiftRoomBy (V2 (-20) (-10),0) $ roomRect 40 20 1 1 
-    & rmPS .~ [ spanColLightI (V3 0 0.7 0.2) 70 (V2 0 10) (V2 40 10) ]
+    & rmPmnts .~ [ spanColLightI (V3 0 0.7 0.2) 70 (V2 0 10) (V2 40 10) ]

 startRoom :: RandomGen g => State g (Tree (Either Room Room))
 startRoom = do
@@ -30,7 +30,7 @@ startRoom = do
            girderV 40 20 10 (V2  0    (h/2)) (V2  w    (h/2))
    treeFromPost [Left rezBox, Left door] . Right 
        <$> randomiseOutLinks (shiftRoomBy (V2 (-20) (-20),0) 
-            $ roomRectAutoLinks w h & rmPS %~ 
+            $ roomRectAutoLinks w h & rmPmnts %~ 
            (
            [ fground
            , mountLightJ (V2 0 (h/3)) (V3 40 (h/3) 70)