Separate out concrete part of world

2022-07-25 12:10:50 +01:00
parent 3354d108be
commit b2efbd2b3e
134 changed files with 933 additions and 930 deletions
@@ -58,7 +58,7 @@ makeFlameExplosionAt
    -> World
 makeFlameExplosionAt p w 
    = soundMultiFrom [Explosion 0,Explosion 1] p bangS Nothing w
-    & flames .++~ newFlames
+    & cWorld . flames .++~ newFlames
  where 
    newFlames = zipWith makeFlameWithVelAndTime velocities timers
    makeFlameWithVelAndTime vel time = aFlameParticle time p vel
@@ -71,7 +71,7 @@ makeExplosionAt :: Point2 -> World -> World
 makeExplosionAt p w = w
    & soundMultiFrom [Explosion 0,Explosion 1] p bangS Nothing
    & addFlames 
-    & tempLightSources .:~ theTLS
+    & cWorld . tempLightSources .:~ theTLS
    & makeShockwaveAt [] p 50 50 1 white
  where 
    theTLS = tlsTimeRadColPos 20 150 (V3 1 0.5 0) (addZ 20 p)