Prop reification/splitting

2022-07-24 13:45:05 +01:00
parent 5a2f529182
commit ac069d08f6
31 changed files with 585 additions and 458 deletions
@@ -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
    }