Reify shockwaves

src/Dodge/Data/Shockwave.hs

@@ -0,0 +1,22 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.Shockwave
+    where
+import Color
+import Geometry.Data
+import Control.Lens
+data ShockwaveDirection = OutwardShockwave | InwardShockwave
+  deriving (Eq,Ord,Show,Read)
+data Shockwave = Shockwave
+    { _swColor      :: Color
+    , _swDirection  :: ShockwaveDirection
+    , _swInvulnerableCrs :: [Int]
+    , _swPos        :: Point2
+    , _swRad        :: Float
+    , _swDam        :: Int
+    , _swPush       :: Float
+    , _swMaxTime    :: Int
+    , _swTimer      :: Int
+    }
+  deriving (Eq,Ord,Show,Read)
+makeLenses ''Shockwave