Prop reification/splitting

src/Dodge/Default/Prop.hs

@@ -4,18 +4,9 @@ import Geometry
 defaultProp :: Prop
 defaultProp = ShapeProp
     { _prPos = V2 0 0
-    , _prDraw = const mempty
-    , _pjID = 0
-    , _pjUpdate = const id
-    , _prToggle = True
-    , _pjRot = 0
-    }
-defaultShapeProp :: Prop
-defaultShapeProp = ShapeProp
-    { _prPos = 0
-    , _pjID  = 0
-    , _pjRot = 0
-    , _pjUpdate = const id
-    , _prDraw = const mempty
+    , _prDraw = PropDrawSPic mempty
+    , _prID = 0
+    , _prUpdate = PropUpdateId
     , _prToggle = True
+    , _prRot = 0
     }

src/Dodge/Default/World.hs

@@ -49,6 +49,8 @@ defaultWorld = World
     , _shockwaves       = []
     , _lasers           = []
     , _lasersToDraw     = []
+    , _tractorBeams     = mempty
+    , _linearShockwaves = mempty
     , _walls            = IM.empty
     , _wallDamages = IM.empty
     , _blocks = IM.empty