19 lines
471 B
Haskell
19 lines
471 B
Haskell
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
|