Unify curve bullets with straight

2021-03-25 03:06:37 +01:00
parent bc5ad33652
commit 31988e024b
5 changed files with 64 additions and 119 deletions
@@ -374,7 +374,7 @@ mkBezierBul :: Point2 -> Point2 -> Point2 -> Int -> World -> World
 mkBezierBul startp controlp targetp cid w = over particles' (bbul :) w
    where 
        bbul = aCurveBulAt (Just cid) white startp (controlp +.+ randPos) (targetp +.+ randPos')
-                                (destroyOnImpact bulHitCr' bulHitWall' bulHitFF') 5
+                                (passThroughAll bulHitCr' bulHitWall' bulHitFF') 5
        (randPos,randPos') = flip evalState (_randGen w) 
                                    $ do a <- randInCirc 10
                                         b <- randInCirc 20