13 lines
365 B
Haskell
13 lines
365 B
Haskell
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
|