Continue bullet refactor

2022-07-16 22:02:01 +01:00
parent 301946ff8f
commit c9f7f39f22
12 changed files with 31 additions and 51 deletions
@@ -22,7 +22,7 @@ mvBullet w bt'
    bt = foldr (\mg b -> _mgField mg mg b) bt' $ _magnets w
    dodrag = buVel .*.*~ drag
    drag = _buDrag bt
-    (p:_)   = _buTrail bt
+    p       = _buPos bt
    vel     = _buVel bt
    hiteff  = _buHitEff bt
    t       = _buTimer bt