15 lines
284 B
Haskell
15 lines
284 B
Haskell
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]
|