This commit is contained in:
2024-12-28 10:12:01 +00:00
parent 2abb70334f
commit 2e67924339
8 changed files with 90 additions and 96 deletions
+1 -1
View File
@@ -30,7 +30,7 @@ makeShrapnelAt p v w =
& cWorld . lWorld . bullets .++~ buls
where
-- speed = magV v
vs = replicateM 75 (randInCirc $ 10) & evalState $ _randGen w
vs = replicateM 75 (randInCirc 10) & evalState $ _randGen w
drags :: [Float]
drags = replicateM 75 (state $ randomR (0.85,0.9)) & evalState $ _randGen w
buls = zipWith f vs drags