Tweak sparks

This commit is contained in:
2022-03-25 15:09:04 +00:00
parent 59b49956b5
commit bd46d3f110
5 changed files with 9 additions and 10 deletions
+1 -1
View File
@@ -68,7 +68,7 @@ colSparkRandDir :: Float -> Int -> Color -> Point2 -> Float -> World -> World
colSparkRandDir randDir time col pos baseDir w = w
& instantParticles .:~ spark
& randGen .~ g
where
where
(a,g) = randomR (-randDir,randDir) $ _randGen w
dir = a + baseDir
spark = BulletPt