Reify tesla arcs

src/Dodge/Data/TeslaArc.hs

@@ -4,9 +4,12 @@ module Dodge.Data.TeslaArc where
 import Geometry.Data
 import Color
 import Control.Lens
+import Dodge.Data.ArcStep
 data TeslaArc = TeslaArc
     { _taPoints :: [Point2]
     , _taTimer :: Int
+    , _taArcSteps :: [ArcStep]
     , _taColor :: Color
     }
+  deriving (Eq,Ord,Show,Read)
 makeLenses ''TeslaArc