Simplify energyBalls (no z component)

src/Dodge/EnergyBall/Draw.hs

@@ -1,4 +1,6 @@
-module Dodge.EnergyBall.Draw where
+module Dodge.EnergyBall.Draw (
+    drawEnergyBall,
+) where
 
 import Dodge.Data.Damage.Type
 import Dodge.Data.EnergyBall
@@ -16,7 +18,8 @@ drawStaticBall ::
     Picture
 drawStaticBall pt =
     setLayer BloomNoZWrite
-        . setDepth (_ebZ pt + 20)
+        . setDepth 20
+        --        . setDepth (_ebZ pt + 20)
         . uncurryV translate (_ebPos pt)
         $ circleSolidCol (_ebColor pt) (withAlpha 0.5 white) (_ebWidth pt + 5)
 
@@ -28,7 +31,8 @@ drawFlamelet pt =
         , setLayer BloomNoZWrite pi2
         ]
   where
-    z = _ebZ pt
+    z = 20
+    --    z = _ebZ pt
     sp = _ebPos pt
     vel = _ebVel pt
     ep = sp +.+ vel
@@ -47,7 +51,7 @@ drawFlamelet pt =
                 )
             . rotate (negate (rot - 0.1 * fromIntegral time))
             . scale s1 s1
-            . polygon 
+            . polygon
             $ reverse (rectNSWE siz2 (- siz2) (- siz2) siz2)
     pi2 =
         setDepth (z + 25)
@@ -61,7 +65,7 @@ drawFlamelet pt =
                 )
             . rotate (negate (rot + 0.2 * fromIntegral time))
             . scale s2 s2
-            . polygon 
+            . polygon
             . reverse
             $ rectNSWE siz2 (- siz2) (- siz2) siz2
     pic =