Improve static bullets

src/Dodge/Data/EnergyBall.hs

@@ -0,0 +1,19 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.EnergyBall where
+import Geometry.Data
+import Color
+import Dodge.Data.Damage.Type
+import Control.Lens
+
+data EnergyBall = EnergyBall
+    { _ebVel    :: Point2
+    , _ebColor  :: Color
+    , _ebPos :: Point2
+    , _ebWidth :: Float 
+    , _ebTimer :: Int
+    , _ebEff :: (DamageType,Int)
+    , _ebZ :: Float
+    , _ebRot :: Float
+    }
+makeLenses ''EnergyBall