module Dodge.Spark.Draw (drawSpark) where

import Dodge.Data.Spark
import Picture
import Linear

drawSpark :: Spark -> Picture
drawSpark pt =
    setLayer BloomLayer -- was nozwrite
        . setDepth 20
        . color (skColor pt)
        $ thickLine 3 [_skOldPos pt, _skPos pt, _skPos pt + _skVel pt]

skColor :: Spark -> Color
skColor sk = case _skType sk of
    ElectricSpark -> brightX 100 1.5 cyan
    FireSpark -> V4 20 (-5) 0 1
    NormalSpark -> V4 1.5 1 0.2 2