Allow for bullet drag

2021-12-02 18:29:46 +00:00
parent 85ededc158
commit 8b8d75b016
35 changed files with 362 additions and 228 deletions
@@ -25,6 +25,7 @@ colSpark' randDir time col pos baseDir w = w
    spark = BulletPt
        { _ptDraw = drawBul
        , _ptUpdate = mvBullet
+        , _btDrag   = 0.9
        , _btVel' = rotateV dir (V2 5 0)
        , _btColor' = col
        , _btTrail' = [pos]