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]