Cleanup

src/Dodge/Particle/Draw.hs

@@ -2,9 +2,9 @@ module Dodge.Particle.Draw where
 import Dodge.Data
 import Picture
 
-drawParticle :: Particle -> Picture
-drawParticle pt = case pt of
-    ShockLine {} -> drawSonicWave pt
+--drawParticle :: Particle -> Picture
+--drawParticle pt = case pt of
+--    ShockLine {} -> drawSonicWave pt
 --
 --drawShockwave :: Particle -> Picture
 --drawShockwave pt = setDepth 20 
@@ -46,9 +46,9 @@ drawTargetLaser pt = setLayer BloomNoZWrite $ pictures
     col = _laColor pt
     (sp:ps) = _laPoints pt
 
-drawSonicWave :: Particle -> Picture
-drawSonicWave pt = foldMap (color (_ptColor pt) . setLayer BloomNoZWrite . setDepth 20 
-    . lineThick 20
-    . map fst)
-    $ _ptPointDirs pt
+--drawSonicWave :: Particle -> Picture
+--drawSonicWave pt = foldMap (color (_ptColor pt) . setLayer BloomNoZWrite . setDepth 20 
+--    . lineThick 20
+--    . map fst)
+--    $ _ptPointDirs pt