From 396146f3b45182ae4b2cce2e4882bd1090f15291 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Wed, 6 Apr 2022 11:40:43 +0100
Subject: [PATCH] Add file

---
 src/Dodge/Particle/Flame.hs | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 src/Dodge/Particle/Flame.hs

diff --git a/src/Dodge/Particle/Flame.hs b/src/Dodge/Particle/Flame.hs
new file mode 100644
index 000000000..095f9fe6f
--- /dev/null
+++ b/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)