Refactor projectiles

2022-07-20 09:55:07 +01:00
parent 9daf872878
commit 330a81a955
14 changed files with 196 additions and 200 deletions
@@ -1,21 +1,20 @@
 module Dodge.Default.Shell
    where
 import Dodge.Data
-import Picture
 import Geometry.Data

-defaultShell :: Prop
+defaultShell :: Proj
 defaultShell = Shell
-    { _prPos = V2 0 0
-    , _pjZ   = 20
-    , _pjStartPos = V2 0 0
-    , _pjVel = V2 0 0
-    , _pjAcc = V2 0 0
-    , _pjDir = 0
-    , _pjSpin = 0
-    , _prDraw = const (mempty, blank)
-    , _pjID = 0
-    , _pjTimer = 0
-    , _pjUpdate = const id
-    , _pjPayload = const id
+    { _prjPos = V2 0 0
+    , _prjZ   = 20
+    , _prjStartPos = V2 0 0
+    , _prjVel = V2 0 0
+    , _prjAcc = V2 0 0
+    , _prjDir = 0
+    , _prjSpin = 0
+    , _prjDraw = DrawShell
+    , _prjID = 0
+    , _prjTimer = 0
+    , _prjUpdate = const id
+    , _prjPayload = ExplosionPayload
    }