Cleanup

2022-07-19 14:26:10 +01:00
parent 0a7922ec5e
commit 8ee4d2e0f2
6 changed files with 68 additions and 78 deletions
@@ -6,7 +6,6 @@ import Picture
 drawParticle :: Particle -> Picture
 drawParticle pt = case pt of
    Shockwave {} -> drawShockwave pt
-    PtStaticBall {} -> drawStaticBall pt
    PtInvShockwave {} -> drawInverseShockwave pt
    PtTeslaArc {} -> drawTeslaArc pt
    PtTargetLaser {} -> drawTargetLaser pt
@@ -27,15 +26,6 @@ drawShockwave pt = setDepth 20
    rad = r - (3/4) * r * tFraction
    tFraction = fromIntegral (_ptTimer pt) / fromIntegral (_ptMaxTime pt)

-drawStaticBall
-    :: Particle
-    -> Picture
-drawStaticBall pt = setLayer BloomNoZWrite
-    . setDepth (_ptZ pt + 20) 
-    . uncurryV translate (_ptPos pt)
-    $ circleSolidCol (_ptColor pt) (withAlpha 0.5 white) (_ptWidth pt+5)
-
-
 drawInverseShockwave :: Particle -> Picture
 drawInverseShockwave  pt 
    = setLayer BloomLayer $ setDepth 20 $ uncurryV translate p