Move flame into its own datatype

2022-07-18 22:41:40 +01:00
parent c14b3ff787
commit 54ba0fbedc
29 changed files with 444 additions and 318 deletions
@@ -75,7 +75,7 @@ mvBullet x w bt'
            & buTimer -~ 1
            )
    hitstream = thingsHit p (p +.+ vel) w
-    bt = (foldr (\mg b -> _mgField mg mg b) bt' $ _magnets w)
+    bt = foldr (\mg b -> _mgField mg mg b) bt' (_magnets w)
        & buState .~ NormalBulletState
    dodrag = case _buTrajectory bt of
        BasicBulletTrajectory -> buVel .*.*~ drag