Add PlasmaBalls

src/Dodge/Data/PlasmaBall.hs

@@ -0,0 +1,25 @@
+{-# LANGUAGE StrictData #-}
+{-# LANGUAGE TemplateHaskell #-}
+
+module Dodge.Data.PlasmaBall (
+    module Dodge.Data.PlasmaBall
+) where
+
+import Control.Lens
+import Data.Aeson
+import Data.Aeson.TH
+import Geometry.Data
+
+data PlasmaBall = PBall
+    { _pbType :: PlasmaBallType
+    , _pbVel :: Point2
+    , _pbPos :: Point2
+    }
+    deriving (Show, Eq, Ord, Read) --Generic, Flat)
+
+data PlasmaBallType = DefaultPlasma
+    deriving (Show, Eq, Ord, Read) --Generic, Flat)
+
+makeLenses ''PlasmaBall
+deriveJSON defaultOptions ''PlasmaBallType
+deriveJSON defaultOptions ''PlasmaBall