Allow for random composition of trees

src/Dodge/Default/Prop.hs

@@ -0,0 +1,21 @@
+module Dodge.Default.Prop where
+import Dodge.Data
+import Geometry
+defaultProp :: Prop
+defaultProp = Projectile
+    { _prPos = V2 0 0
+    , _pjStartPos = V2 0 0
+    , _pjVel = V2 0 0
+    , _prDraw = const mempty
+    , _pjID = 0
+    , _pjUpdate = const id
+    }
+defaultShapeProp :: Prop
+defaultShapeProp = ShapeProp
+    { _prPos = 0
+    , _pjID  = 0
+    , _pjRot = 0
+    , _pjUpdate = const id
+    , _prDraw = const mempty
+    , _prToggle = True
+    }