diff --git a/src/Dodge/Flame/Size.hs b/src/Dodge/Flame/Size.hs
new file mode 100644
index 000000000..18d29643e
--- /dev/null
+++ b/src/Dodge/Flame/Size.hs
@@ -0,0 +1,11 @@
+module Dodge.Flame.Size (flameSize) where
+
+import Dodge.Data.Flame
+
+flameSize :: Flame -> Float
+flameSize fl
+    | x > 95 = x - 95
+    | x > 80 = 95.1 - x
+    | otherwise = 15
+  where
+    x = fromIntegral (_flTimer fl)