module Dodge.Flame.Draw (drawFlame) where

import Dodge.Data.Flame
import Dodge.Flame.Size
import Geometry
import Picture

drawFlame :: Flame -> Picture
drawFlame fl =
    setLayer BloomLayer . setDepth 25
        . uncurryV translate (_flPos fl + rotateV (fromIntegral (_flTimer fl)) (V2 1 0))
        $ circleSolidCol (V4 1 1 1 0.5) (V4 5 2 0 2) . flameSize $ fl