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

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