Work on rocket/grenade launcher

2024-12-27 21:46:46 +00:00
parent 0ef28c132e
commit 5c749bff63
19 changed files with 400 additions and 324 deletions
@@ -84,6 +84,6 @@ makeExplosionAt p vel w =
    fVs' = zipWith (+.+) fVs $ map inversePushOut fPs'
    sizes = randomRs (2, 9) $ _randGen w
    times = randomRs (15, 20) $ _randGen w
-    mF q v size time = makeFlamelet (q - (v + 2* vel)) (v + vel) size time
+    mF q v size time = makeFlamelet (q - (2*v + 2* vel)) (v + vel) size time
    newFs = zipWith3 (mF p) (zipWith (+) fPs' (fmap (3 *.*) fVs')) sizes times
    addFlames w' = foldl' (flip ($)) w' newFs