Move sparks into dedicated datatype

2022-07-18 12:15:05 +01:00
parent 13f2255ba7
commit 5495d33389
16 changed files with 99 additions and 104 deletions
@@ -10,7 +10,6 @@ drawParticle pt = case pt of
    PtStaticBall {} -> drawStaticBall pt
    PtIncBall {} -> drawFlameletZ pt
    PtInvShockwave {} -> drawInverseShockwave pt
-    PtSpark {} -> drawSpark pt
    PtTeslaArc {} -> drawTeslaArc pt
    PtTargetLaser {} -> drawTargetLaser pt
    LaserParticle {} -> drawLaser pt
@@ -124,12 +123,6 @@ drawInverseShockwave  pt
    rad = r - 0.1 * r * fromIntegral (10 - t)
    thickness = fromIntegral (10 - t) **2 * rad / 40

-drawSpark :: Particle -> Picture
-drawSpark pt = setLayer BloomNoZWrite
-    . setDepth 20 
-    . color (_ptColor pt) 
-    $ thickLine (_ptWidth pt) (take 2 $ _ptTrail pt)
-
 drawTeslaArc :: Particle -> Picture
 drawTeslaArc pt = setLayer BloomNoZWrite $ pictures 
    [ setDepth 20.5 $ color (brightX 2 1 $ _ptColor pt) $ thickLine  3 ps