Move radar blips into own grouping, work on data-ifying particles

2022-07-10 12:38:32 +01:00
parent ce5b596d4f
commit 23022d85a1
10 changed files with 290 additions and 32 deletions
@@ -20,7 +20,7 @@ import LensHelp
 --import Data.Maybe

 aTeslaArcAt :: Color -> [ArcStep] -> Particle
-aTeslaArcAt col thearc = LinearParticle
+aTeslaArcAt col thearc = PtTeslaArc
    { _ptPoints = map (^. asPos) thearc
    , _ptDraw = drawTeslaArc
    , _ptUpdate = moveTeslaArc thearc