Fix bug in flame wall damages, cleanup

src/Dodge/EnergyBall/Draw.hs

@@ -8,8 +8,8 @@ import Picture
 
 drawEnergyBall :: EnergyBall -> Picture
 drawEnergyBall eb = case _ebEff eb of
-    FlamingBall -> drawFlamelet 5 eb
-    FlameletBall x -> drawFlamelet x eb
+    FlamingBall -> drawFlamelet 5 0 eb
+    FlameletBall x a -> drawFlamelet x a eb
     ElectricalBall -> drawStaticBall eb
     ExplosiveBall -> mempty
     FlashBall -> mempty
@@ -24,8 +24,8 @@ drawStaticBall pt =
         . uncurryV translate (_ebPos pt)
         $ circleSolidCol blue (withAlpha 0.5 white) 8
 
-drawFlamelet :: Float -> EnergyBall -> Picture
-drawFlamelet size pt =
+drawFlamelet :: Float -> Float -> EnergyBall -> Picture
+drawFlamelet size rot pt =
     fold
         [ setLayer BloomLayer pic
         , setLayer BloomNoZWrite piu
@@ -89,4 +89,3 @@ drawFlamelet size pt =
     sc = (*) 2 $ log $ 1 + fromIntegral time / 20
     s1 = (*) 2 $ log $ 2 + fromIntegral time / 40
     s2 = 0.5 * (sc + s1)
-    rot = _ebRot pt