12 lines
250 B
Haskell
12 lines
250 B
Haskell
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)
|