14 lines
329 B
Haskell
14 lines
329 B
Haskell
module Dodge.Particle.Flame where
|
|
import Dodge.Data
|
|
import Dodge.WorldEvent
|
|
import Geometry
|
|
import LensHelp
|
|
|
|
import System.Random
|
|
|
|
makeFlame :: Point2 -> Point2 -> World -> World
|
|
makeFlame pos vel w = w & instantParticles .:~ aFlameParticle t pos vel Nothing
|
|
& randGen .~ g
|
|
where
|
|
(t,g) = randomR (99,101) (_randGen w)
|