12 lines
255 B
Haskell
12 lines
255 B
Haskell
module Dodge.Spark.Draw where
|
|
|
|
import Dodge.Data.Spark
|
|
import Picture
|
|
|
|
drawSpark :: Spark -> Picture
|
|
drawSpark pt =
|
|
setLayer BloomNoZWrite
|
|
. setDepth 20
|
|
. color (_skColor pt)
|
|
$ thickLine (_skWidth pt) [_skOldPos pt, _skPos pt]
|