Refactor light sources

2021-11-28 16:53:26 +00:00
parent 1d9dd3e4e0
commit 618653a86e
28 changed files with 169 additions and 155 deletions
@@ -55,4 +55,4 @@ damCrsOnLine dam p1 p2 = over creatures (IM.map damIfOnLine)
                         | otherwise = cr

 makeTLight :: Int -> Float -> Point3 -> Point3 -> World -> World
-makeTLight i rad col p = tempLightSources %~ (tLight i rad col p :)
+makeTLight i rad (V3 r g b) p = tempLightSources %~ (tlsTimeRadColPos i rad (V3 r g b) p :)