Add extra flare to laser

2022-03-25 19:04:13 +00:00
parent bd46d3f110
commit ae7fbe29c2
6 changed files with 16 additions and 28 deletions
@@ -59,8 +59,8 @@ makeFlameExplosionAt
    -> World 
    -> World
 makeFlameExplosionAt p w 
-    = soundMultiFrom [Explosion 0,Explosion 1] p bangS Nothing
-    $ over particles (newFlames ++ ) w
+    = soundMultiFrom [Explosion 0,Explosion 1] p bangS Nothing w
+    & instantParticles .++~ newFlames
  where 
    newFlames = zipWith makeFlameWithVelAndTime velocities timers
    makeFlameWithVelAndTime vel time = aFlameParticle time p vel Nothing