Cleanup, redo damage direction

src/Dodge/EnergyBall/Draw.hs

@@ -8,7 +8,6 @@ import Picture
 
 drawEnergyBall :: EnergyBall -> Picture
 drawEnergyBall eb = case _ebEff eb of
-    FlamingBall -> drawFlamelet 5 0 eb
     FlameletBall x a -> drawFlamelet x a eb
     ElectricalBall -> drawStaticBall eb
     ExplosiveBall -> mempty
@@ -33,16 +32,12 @@ drawFlamelet size rot pt =
         ]
   where
     z = 20
-    --    z = _ebZ pt
     sp = _ebPos pt
-    vel = _ebVel pt
-    ep = sp +.+ vel
-    --size = _ebWidth pt
     siz2 = size + 0.2
     time = _ebTimer pt
     piu =
         setDepth (z + 25)
-            . uncurryV translate ep
+            . uncurryV translate sp
             . color
                 ( mixColors
                     (fromIntegral (max 0 (time -2)))
@@ -58,7 +53,7 @@ drawFlamelet size rot pt =
             $ reverse (rectNSWE siz2 (- siz2) (- siz2) siz2)
     pi2 =
         setDepth (z + 25)
-            . uncurryV translate ep
+            . uncurryV translate sp
             . color
                 ( mixColors
                     (fromIntegral (max 0 (time -2)))
@@ -75,7 +70,7 @@ drawFlamelet size rot pt =
             $ rectNSWE siz2 (- siz2) (- siz2) siz2
     pic =
         setDepth (z + 20)
-            . uncurryV translate ep
+            . uncurryV translate sp
             . color
                 ( mixColors
                     (fromIntegral (max 0 (time -2)))