Move flame into its own datatype

src/Dodge/Render/ShapePicture.hs

@@ -5,6 +5,7 @@ import Dodge.Item.Draw.SPic
 import Dodge.Creature.Picture.Awareness
 import Dodge.Creature.Picture
 import Dodge.Particle.Draw
+import Dodge.Flame.Draw
 import Dodge.Bullet.Draw
 import Dodge.Spark.Draw
 import Dodge.RadarBlip
@@ -86,6 +87,7 @@ cullPoint cfig w p
 extraPics :: Configuration -> World -> Picture
 extraPics cfig w = pictures (_decorations w)
     <> concatMapPic drawParticle (_particles    w)
+    <> concatMapPic drawFlame (_flames    w)
     <> concatMapPic drawSpark (_sparks    w)
     <> concatMapPic drawBul (_bullets w)
     <> concatMapPic drawBlip (_radarBlips    w)