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)