justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Remove record

Browse Source
This commit is contained in:
justin
2025-06-07 19:21:49 +01:00
parent faa3c4cde4
commit ba9e9278c4
2 changed files with 1 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Flame.hs
+1 -2
View File
@@ -30,7 +30,6 @@ aFlameParticle ::
aFlameParticle t pos vel =
Flame
{ _flVel = vel
, _flColor = red
, _flPos = pos
, _flWidth = 4
, _flTimer = t
@@ -117,7 +116,7 @@ flFlicker :: Flame -> World -> World
flFlicker pt
| _flTimer pt `mod` 7 == 0 =
cWorld . lWorld . lights
.:~ LSParam (addZ 10 $ _flPos pt) 70 (0.5 *.*.* xyzV4 (_flColor pt))
.:~ LSParam (addZ 10 $ _flPos pt) 70 (0.5 *.*.* xyzV4 red)
-- .:~ tlsTimeRadColPos 1 70 (0.5 *.*.* xyzV4 (_flColor pt)) (addZ 10 $ _flPos pt)
| otherwise = id