Add file

2025-06-08 12:13:13 +01:00
parent 54937fd159
commit 4c3a3d83da
1 changed files with 11 additions and 0 deletions
@@ -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)