Destroying mounted lights flashes, move equipment datatype

2022-07-13 19:45:23 +01:00
parent cede677560
commit 33e9b5b1f0
16 changed files with 118 additions and 96 deletions
@@ -45,6 +45,7 @@ flareCircleAt col alphax tranv = flares .:~ CircFlare
    , _flareTran3 = tranv
    }

+
 explosionFlashAt :: Point2 -> World -> World
 explosionFlashAt p = tempLightSources .:~ tlsTimeRadFunPos 20 150 intensityFunc (addZ 20 p)
  where