module Dodge.Bullet.Draw (
    drawBullet,
) where

import Dodge.Data.Bullet
import Linear
import Picture

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