Start simplifying tesla arcs

src/Dodge/Tesla/Draw.hs

@@ -4,6 +4,7 @@ module Dodge.Tesla.Draw (
 
 import Picture.Base
 import Dodge.Data.TeslaArc
+import Dodge.Data.ArcStep
 import Control.Lens
 
 drawTeslaArc :: TeslaArc -> Picture
@@ -17,4 +18,4 @@ drawTeslaArc pt =
     x | pt ^. taTimer > 0 = 3
       | pt ^. taTimer >= 0  = 2
       | otherwise = 0.5
-    ps = _taPoints pt
+    ps = pt ^.. taArcSteps . each . asPos