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)