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/Data/Flame.hs
-2
View File
@@ -5,7 +5,6 @@
module Dodge.Data.Flame where module Dodge.Data.Flame where
import Color
import Control.Lens import Control.Lens
import Data.Aeson import Data.Aeson
import Data.Aeson.TH import Data.Aeson.TH
@@ -13,7 +12,6 @@ import Geometry.Data
data Flame = Flame data Flame = Flame
{ _flVel :: Point2 { _flVel :: Point2
, _flColor :: Color
, _flPos :: Point2 , _flPos :: Point2
, _flWidth :: Float , _flWidth :: Float
, _flTimer :: Int , _flTimer :: Int
src/Dodge/Flame.hs
+1 -2
View File
@@ -30,7 +30,6 @@ aFlameParticle ::
aFlameParticle t pos vel = aFlameParticle t pos vel =
Flame Flame
{ _flVel = vel { _flVel = vel
, _flColor = red
, _flPos = pos , _flPos = pos
, _flWidth = 4 , _flWidth = 4
, _flTimer = t , _flTimer = t
@@ -117,7 +116,7 @@ flFlicker :: Flame -> World -> World
flFlicker pt flFlicker pt
| _flTimer pt `mod` 7 == 0 = | _flTimer pt `mod` 7 == 0 =
cWorld . lWorld . lights 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) -- .:~ tlsTimeRadColPos 1 70 (0.5 *.*.* xyzV4 (_flColor pt)) (addZ 10 $ _flPos pt)
| otherwise = id | otherwise = id