Cleanup

src/Dodge/Particle/Draw.hs

@@ -1,6 +1,5 @@
 module Dodge.Particle.Draw where
 import Dodge.Data
-import Geometry
 import Picture
 
 drawParticle :: Particle -> Picture
@@ -19,16 +18,16 @@ drawParticle pt = case pt of
 --    rad = r - (3/4) * r * tFraction
 --    tFraction = fromIntegral (_ptTimer pt) / fromIntegral (_ptMaxTime pt)
 
-drawInverseShockwave :: Particle -> Picture
-drawInverseShockwave  pt 
-    = setLayer BloomLayer $ setDepth 20 $ uncurryV translate p 
-                          $ color cyan $ thickCircle rad thickness
-  where
-    p = _ptPos pt
-    r = _ptRad pt
-    t = _ptTimer pt
-    rad = r - 0.1 * r * fromIntegral (10 - t)
-    thickness = fromIntegral (10 - t) **2 * rad / 40
+--drawInverseShockwave :: Particle -> Picture
+--drawInverseShockwave  pt 
+--    = setLayer BloomLayer $ setDepth 20 $ uncurryV translate p 
+--                          $ color cyan $ thickCircle rad thickness
+--  where
+--    p = _ptPos pt
+--    r = _ptRad pt
+--    t = _ptTimer pt
+--    rad = r - 0.1 * r * fromIntegral (10 - t)
+--    thickness = fromIntegral (10 - t) **2 * rad / 40
 
 --drawTeslaArc :: Particle -> Picture
 --drawTeslaArc pt = setLayer BloomNoZWrite $ pictures