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

Trippy flamer

Browse Source
This commit is contained in:
justin
2021-08-28 14:33:23 +01:00
parent 882a8e9824
commit 3a8b28a916
10 changed files with 81 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/WorldEvent/SpawnParticle.hs
+7 -4
View File
@@ -59,9 +59,12 @@ drawFlame rotd pt = thePic
ep = _btPos' pt
thePic = pictures
[ glow
, aPic 3 prot2 18 (V2 (scaleChange + 1) 2 ) red
, aPic 4 prot 19 (V2 (scaleChange + 0.5) 1.5) orange
, aPic 5 prot3 20 (V2 scaleChange 1 ) white
, aPic 1 prot2 18 (V2 (scaleChange + 1) 2 ) $ V4 2 0 (-10) 0.5
, aPic 1 prot 19 (V2 (scaleChange + 0.5) 1.5) $ V4 2 0.5 (-10) 2
, aPic 1 prot3 20 (V2 scaleChange 1 ) $ V4 1 1 1 2
--, aPic 3 prot2 18 (V2 (scaleChange + 1) 2 ) red
--, aPic 4 prot 19 (V2 (scaleChange + 0.5) 1.5) orange
--, aPic 5 prot3 20 (V2 scaleChange 1 ) white
]
aPic :: Int -> (Point2 -> Point2) -> Float -> Point2 -> Color -> Picture
aPic lay offset depth (V2 scalex scaley) col
@@ -96,7 +99,7 @@ moveFlame rotd w pt
_ -> (soundAndGlare damcrs , mvPt)
where
time = _btTimer' pt
soundAndGlare = soundFrom Flame fireSound 2 500 . over worldEvents ((.) $ flameGlareAt ep)
soundAndGlare = soundFrom Flame fireSound 2 500 -- . over worldEvents ((.) $ flameGlareAt ep)
sp = _btPos' pt
vel = _btVel' pt
ep = sp +.+ vel