Add aggressive light culling

2022-06-17 18:24:24 +01:00
parent 55341f7caf
commit cbfb417d21
26 changed files with 114 additions and 47 deletions
@@ -78,7 +78,7 @@ airlockZ = defaultRoom
        [pContID (PS (V2 90 115) pi) (PutButton $ makeSwitch col red id id)
            $ \btid -> jspsJ (V2 0 60) 0 (PutDoor col (cond btid) outDoorps)
            $ sPS (V2 180 60) 0 (PutDoor col (cond btid) inDoorps)
-        , sps0 $ PutWall (rectNSEW 70 50 120 60) defaultWall
+        , sps0 $ PutWall (reverse $ rectNSWE 70 50 60 120) defaultWall
        , lighting
        ]
    , _rmBound =