From 4c3a3d83da456b976d99493e901e9a5b319cfa83 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Sun, 8 Jun 2025 12:13:13 +0100
Subject: [PATCH] Add file

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

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)