module Dodge.Bullet.Draw (
    drawBul,
) where

import Dodge.Data.Bullet
import Linear
import Picture

drawBul :: Bullet -> Picture
drawBul pt =
    setLayer BloomNoZWrite
        . setDepth 20
        . color (V4 200 200 200 2)
        $ thickLine (_buWidth pt) [_buOldPos pt, _buPos pt]