module Dodge.Particle.Bullet.Draw
    ( drawBul
    ) where
import Dodge.Data
import Picture

drawBul :: Particle -> Picture
drawBul pt = setLayer BloomNoZWrite
    . setDepth 20 
    . color (_ptColor pt) 
    $ thickLine (_ptWidth pt) (take 3 $ _ptTrail pt)
