Improve low level flamer

2022-03-15 08:54:23 +00:00
parent 4c116a82c9
commit b71579441e
10 changed files with 78 additions and 47 deletions
@@ -63,8 +63,6 @@ explosionFlashAt p = tempLightSources .:~ tlsTimeRadFunPos 20 150 intensityFunc

 flameFlicker :: Particle -> World -> World
 flameFlicker pt 
-    | _ptTimer pt `mod` 5 == 0 = tempLightSources 
-        .:~ tlsTimeRadColPos 1 70 (V3 0.5 0 0) (V3 x y 10)
+    | _ptTimer pt `mod` 7 == 0 = tempLightSources 
+        .:~ tlsTimeRadColPos 1 70 (V3 0.5 0 0) (addZ 10 $ _ptPos pt)
    | otherwise = id
-  where
-    V2 x y = _ptPos pt