Reify tesla arcs

src/Dodge/Particle/Draw.hs

@@ -7,7 +7,6 @@ drawParticle :: Particle -> Picture
 drawParticle pt = case pt of
     Shockwave {} -> drawShockwave pt
     PtInvShockwave {} -> drawInverseShockwave pt
-    PtTeslaArc {} -> drawTeslaArc pt
     PtTargetLaser {} -> drawTargetLaser pt
     ShockLine {} -> drawSonicWave pt
 
@@ -34,13 +33,13 @@ drawInverseShockwave  pt
     rad = r - 0.1 * r * fromIntegral (10 - t)
     thickness = fromIntegral (10 - t) **2 * rad / 40
 
-drawTeslaArc :: Particle -> Picture
-drawTeslaArc pt = setLayer BloomNoZWrite $ pictures 
-    [ setDepth 20.5 $ color (brightX 2 1 $ _ptColor pt) $ thickLine  3 ps
-    , setDepth 20   $ color (V4 0 0 0 0.5)              $ thickLine 10 ps
-    ]
-  where
-    ps = _ptPoints pt
+--drawTeslaArc :: Particle -> Picture
+--drawTeslaArc pt = setLayer BloomNoZWrite $ pictures 
+--    [ setDepth 20.5 $ color (brightX 2 1 $ _ptColor pt) $ thickLine  3 ps
+--    , setDepth 20   $ color (V4 0 0 0 0.5)              $ thickLine 10 ps
+--    ]
+--  where
+--    ps = _ptPoints pt
 
 drawTargetLaser :: Particle -> Picture
 drawTargetLaser pt = setLayer BloomNoZWrite $ pictures