Reify block drawing

src/Dodge/Data/Magnet.hs

@@ -1,14 +1,20 @@
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE StrictData #-}
 module Dodge.Data.Magnet where
-import Dodge.Data.Bullet
 import Geometry.Data
 import Control.Lens
 
+newtype MagnetUpdate = MagnetUpdateTimer Int
+  deriving (Eq,Ord,Show,Read)
+data MagnetBuBu = MagnetBuId
+    | MagnetBuBuCurveAroundField Float Float
+  deriving (Eq,Ord,Show,Read)
+
 data Magnet = Magnet
     { _mgID :: Int
-    , _mgUpdate :: Magnet -> Maybe Magnet
+    , _mgUpdate :: MagnetUpdate
     , _mgPos :: Point2
-    , _mgField  :: Magnet -> Bullet -> Bullet
+    , _mgField  :: MagnetBuBu
     }
+  deriving (Eq,Ord,Show,Read)
 makeLenses ''Magnet