Various performance improvements

2021-09-23 15:27:37 +01:00
parent 7b6904b51f
commit 85edd98d62
17 changed files with 137 additions and 81 deletions
@@ -58,5 +58,5 @@ damCrsOnLine dam p1 p2 = over creatures (IM.map damIfOnLine)
                                     = over crHP (\hp -> hp - dam) cr
                         | otherwise = cr

-makeTLight :: Int -> Float -> Point3 -> Point2 -> World -> World
+makeTLight :: Int -> Float -> Point3 -> Point3 -> World -> World
 makeTLight i rad col p = tempLightSources %~ (tLight i rad col p :)