Remove temporary light sources as separate entity

2024-11-26 13:12:55 +00:00
parent e93a804559
commit cc302a6846
17 changed files with 243 additions and 241 deletions
@@ -94,6 +94,7 @@ makeFlashBall p w =
 ebFlicker :: EnergyBall -> World -> World
 ebFlicker pt
    | _ebTimer pt `mod` 7 == 0 =
-        cWorld . lWorld . tempLightSources
-            .:~ tlsTimeRadColPos 1 70 (0.5 *.*.* xyzV4 (_ebColor pt)) (addZ 20 $ _ebPos pt)
+        cWorld . lWorld . lights
+            .:~ LSParam (addZ 20 $ _ebPos pt) 70 (0.5 *.*.* xyzV4 (_ebColor pt))
+--            .:~ tlsTimeRadColPos 1 70 (0.5 *.*.* xyzV4 (_ebColor pt)) (addZ 20 $ _ebPos pt)
    | otherwise = id