Move flame into its own datatype

2022-07-18 22:41:40 +01:00
parent c14b3ff787
commit 54ba0fbedc
29 changed files with 444 additions and 318 deletions
@@ -1,12 +1,9 @@
-module Dodge.Tesla where
-import Dodge.Data
-import Dodge.Beam
+module Dodge.Tesla 
+    ( module Dodge.Tesla.Ball
+    , module Dodge.Tesla.Arc
+    , module Dodge.Tesla.ItemParams
+    ) where
+import Dodge.Tesla.Ball
+import Dodge.Tesla.Arc
+import Dodge.Tesla.ItemParams

-teslaParams :: ItemParams
-teslaParams = Arcing 
-    { _currentArc = Nothing
-    , _arcSize = 20
-    , _arcNumber = 10
-    , _newArcStep = defaultArcStep
-    , _previousArcEffect = NoPreviousArcEffect
-    }