Tweak flamer flame drawing

src/Dodge/WorldEvent/SpawnParticle.hs

@@ -51,7 +51,6 @@ aFlameParticle t pos vel maycid = Pt'
     , _btTimer'       = t
     , _btHitEffect'   = destroyOnImpact (doFlameDam 1) noEff noEff
     }
-
 drawFlame 
     :: Point2 -- ^ Rotate direction
     -> Particle -> Picture
@@ -60,8 +59,8 @@ drawFlame rotd pt = thePic
     ep = _btPos' pt
     thePic = pictures 
         [ glow 
-        , aPic 1 prot2 18 (V2 (scaleChange + 1)   2  ) $ V4 2 (-1)  (-1) 0.5
-        , aPic 1 prot  19 (V2 (scaleChange + 0.5) 1) $ V4 1 0.5 0 2
+        , aPic 3 prot2 25 (V2 (scaleChange + 1)   2  ) $ V4 2 (-1)  (-1) 0.5
+        , aPic 3 prot  22 (V2 (scaleChange + 0.5) 1) $ V4 1 0.5 0 2
         , aPic 1 prot3 20 (V2  scaleChange        0.5  ) $ V4 1 1   1 1
         ]
     aPic :: Int -> (Point2 -> Point2) -> Float -> Point2 -> Color -> Picture
@@ -171,8 +170,8 @@ drawFlameletZ rot pt = pictures
     --, setLayer 4 pi2 
     --, setLayer 3 piu 
     [ setLayer 1 pic 
-    , setLayer 1 pi2 
-    , setLayer 1 piu 
+    , setLayer 3 piu 
+    , setLayer 3 pi2 
     --, setLayer 1 glow
     ]
   where