Implement modules changing shell payloads

2024-12-24 21:13:58 +00:00
parent e82ef26b3e
commit 81fd2131e0
18 changed files with 82 additions and 18 deletions
@@ -84,8 +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 - vel) (v + vel) size time
+    mF q v size time = makeFlamelet (q - (v + 2* vel)) (v + vel) size time
    newFs = zipWith3 (mF p) (zipWith (+) fPs' (fmap (3 *.*) fVs')) sizes times
--    newFs = zipWith3 (mF p) (fmap (3 *.*) fVs') sizes times
--    newFs = zipWith3 (mF p) fPs' sizes times
    addFlames w' = foldl' (flip ($)) w' newFs