Fix bug in intersectCircSeg

2021-12-15 17:47:41 +00:00
parent adab32bf68
commit 9dadea2c36
4 changed files with 7 additions and 8 deletions
@@ -71,14 +71,13 @@ bulPenCr' bt p cr w
            ++
           )
    $ bulletHitSound ep
-    $ over worldEvents (addPiercer . )
+    $ over instantParticles (piercer :)
    w
  where 
    (d1,_)  = randomR (-0.7,0.7) $ _randGen w
    cid = _crID cr
    sp = head $ _btTrail' bt
    ep = sp +.+ _ptVel bt
-    addPiercer = over particles (piercer :)
    piercer = (aGenBulAt (Just cid) p (_ptVel bt) (_btDrag bt)
                                      (_btHitEffect' bt) (_btWidth' bt)
              ) {_btTimer' = _btTimer' bt - 1}