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