Start simplifying tesla arcs

2025-01-09 11:01:17 +00:00
parent c355fe4f5f
commit 5fb71cec39
6 changed files with 35 additions and 37 deletions
@@ -10,11 +10,11 @@ import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.ArcStep
-import Geometry.Data
+--import Geometry.Data

 data TeslaArc = TeslaArc
-    { _taPoints :: [Point2]
-    , _taTimer :: Int
+--    { _taPoints :: [Point2]
+    { _taTimer :: Int
    , _taArcSteps :: [ArcStep]
    , _taColor :: Color
    }