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

Improve explosion visuals

Browse Source
This commit is contained in:
justin
2021-08-28 18:07:23 +01:00
parent 5089403038
commit ef73964d09
1 changed files with 10 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/WorldEvent/SpawnParticle.hs
+10 -13
View File
@@ -166,13 +166,9 @@ drawFlameletZ
-> Particle -> Particle
-> Picture -> Picture
drawFlameletZ rot pt = pictures drawFlameletZ rot pt = pictures
--[ setLayer 5 pic
--, setLayer 4 pi2
--, setLayer 3 piu
[ setLayer 1 pic [ setLayer 1 pic
, setLayer 3 piu , setLayer 3 piu
, setLayer 3 pi2 , setLayer 3 pi2
--, setLayer 1 glow
] ]
where where
z = _ptZ pt z = _ptZ pt
@@ -182,29 +178,30 @@ drawFlameletZ rot pt = pictures
size = _btWidth' pt size = _btWidth' pt
siz2 = size + 0.2 siz2 = size + 0.2
time = _btTimer' pt time = _btTimer' pt
glow = setDepth 19 $ uncurryV translate ep piu = setDepth (z + 25)
$ circleSolidCol (withAlpha 0 red) (withAlpha 0.05 red) 30
piu = setDepth (z + 20)
. uncurryV translate ep . uncurryV translate ep
. color (brightX 2 2 $ dark red) -- . color (V4 2 (-0.5) (-0.5) 1)
. color (mixColors (fromIntegral (max 0 (time-2))) (10-fromIntegral time)
(V4 2 0 0 1) (V4 2 0 0 0)
)
. rotate (negate (rot - 0.1 * fromIntegral time)) . rotate (negate (rot - 0.1 * fromIntegral time))
. scale s1 s1 . scale s1 s1
$ polygon (rectNSWE siz2 (-siz2) (-siz2) siz2) $ polygon (rectNSWE siz2 (-siz2) (-siz2) siz2)
pi2 = setDepth (z + 20) pi2 = setDepth (z + 25)
. uncurryV translate ep . uncurryV translate ep
. color (brightX 2 2 $ mixColors (fromIntegral (max 0 (time-2))) (10-fromIntegral time) . color (mixColors (fromIntegral (max 0 (time-2))) (10-fromIntegral time)
orange (dark red) (V4 2 1 0 0.5) (V4 0 0 0 0)
) )
. rotate (negate (rot + 0.2 * fromIntegral time)) . rotate (negate (rot + 0.2 * fromIntegral time))
. scale s2 s2 . scale s2 s2
$ polygon (rectNSWE siz2 (-siz2) (-siz2) siz2) $ polygon (rectNSWE siz2 (-siz2) (-siz2) siz2)
pic = setDepth (z + 20) pic = setDepth (z + 20)
. uncurryV translate ep . uncurryV translate ep
. color (brightX 2 2 $ mixColors (fromIntegral (max 0 (time-2))) (10-fromIntegral time) . color (brightX 1 2 $ mixColors (fromIntegral (max 0 (time-2))) (10-fromIntegral time)
white (dark red) white (dark red)
) )
. rotate (negate ( 0.1 * fromIntegral time + rot)) . rotate (negate ( 0.1 * fromIntegral time + rot))
. scale sc sc . scale (0.5* sc) (0.5 *sc)
$ polygon $ map toV2 [(-size,-size),(size,-size),(size,size),(-size,size)] $ polygon $ map toV2 [(-size,-size),(size,-size),(size,size),(-size,size)]
sc = (*) 2 $ log $ 1 + fromIntegral time / 20 sc = (*) 2 $ log $ 1 + fromIntegral time / 20
s1 = (*) 2 $ log $ 2 + fromIntegral time / 40 s1 = (*) 2 $ log $ 2 + fromIntegral time / 40