Allow for lights to be stored in a one-frame list

2024-11-26 12:50:39 +00:00
parent 851fdc2410
commit e93a804559
8 changed files with 127 additions and 114 deletions
@@ -37,12 +37,14 @@ terminalScreenGlow mc w = fromMaybe w $ do
    term <- w ^? cWorld . lWorld . terminals . ix tid
    V4 x y z _ <- termScreenColor term
    return $
-        w & cWorld . lWorld . tempLightSources
-            .:~ TLS
-                { _tlsParam = LSParam (_mcPos mc `v2z` 20) 30 (V3 x y z)
-                , _tlsUpdate = TimerTLS
-                , _tlsTime = 1
-                }
+        w & cWorld . lWorld . lights
+            .:~ LSParam (_mcPos mc `v2z` 20) 30 (V3 x y z)
+--        w & cWorld . lWorld . tempLightSources
+--            .:~ TLS
+--                { _tlsParam = LSParam (_mcPos mc `v2z` 20) 30 (V3 x y z)
+--                , _tlsUpdate = TimerTLS
+--                , _tlsTime = 1
+--                }

 updateTurret :: Float -> Machine -> World -> World
 updateTurret rotSpeed mc w =