Add file

src/Dodge/Particle/Flame.hs

@@ -0,0 +1,13 @@
+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)