Reify shockwaves

src/Dodge/Data/Laser.hs

@@ -5,17 +5,26 @@ module Dodge.Data.Laser
 import Color
 import Geometry.Data
 import Control.Lens
+
+data LaserType = DamageLaser {_laserTypeDamage :: Int}
+    | TargetLaser
+  deriving (Eq,Ord,Show,Read)
+
 data LaserStart = LaserStart
-    { _lpDamage :: Int
-    , _lpPhaseV :: Float
+    { _lpPhaseV :: Float
     , _lpPos :: Point2
     , _lpDir :: Float
     , _lpColor :: Color
+    , _lpType   :: LaserType
     }
+  deriving (Eq,Ord,Show,Read)
 
 data Laser = Laser
     { _laColor  :: Color
     , _laPoints :: [Point2]
+    , _laType   :: LaserType
     }
+  deriving (Eq,Ord,Show,Read)
 makeLenses ''Laser
 makeLenses ''LaserStart
+makeLenses ''LaserType