Reify block drawing

src/Dodge/Item/Equipment.hs

@@ -35,7 +35,6 @@ import Dodge.Creature.Test
 import Dodge.Creature.HandPos
 import Dodge.Wall
 import Dodge.Wall.ForceField
-import Dodge.Magnet
 import Picture
 import Geometry
 import qualified IntMapHelp as IM
@@ -56,9 +55,9 @@ useMagShield it cr w = w & magnets . at mgid ?~ themagnet
   where
     themagnet = Magnet
         {_mgID = mgid
-        ,_mgUpdate = Just . (mgUpdate .~ const Nothing)
+        ,_mgUpdate = MagnetUpdateTimer 1
         ,_mgPos = _crPos cr
-        ,_mgField = curveAroundField 50 200
+        ,_mgField = MagnetBuBuCurveAroundField 50 200
         }
     mgid = case it ^? itAttachment . atMInt . _Just of
         Just mgid' -> mgid'