Simplify flames

2025-06-08 12:12:58 +01:00
parent ba9e9278c4
commit 54937fd159
4 changed files with 126 additions and 87 deletions
@@ -13,10 +13,8 @@ import Geometry.Data
 data Flame = Flame
    { _flVel :: Point2
    , _flPos :: Point2
-    , _flWidth :: Float
    , _flTimer :: Int
-    , _flZ :: Float
-    , _flOriginalVel :: Point2
+--    , _flOriginalVel :: Point2
    }
    deriving (Eq, Ord, Show, Read) --Generic, Flat)