16 lines
406 B
Haskell
16 lines
406 B
Haskell
module Dodge.Particle.Draw where
|
|
|
|
import Dodge.Data.Laser
|
|
import Picture
|
|
|
|
drawTargetLaser :: Laser -> Picture
|
|
drawTargetLaser pt =
|
|
setLayer BloomNoZWrite $
|
|
pictures
|
|
[ setDepth 19 . color (brightX 0 0.5 col) $ thickLine 5 (sp : ps)
|
|
, setDepth 19.5 . color (brightX 5 1 col) $ thickLine 1 (sp : ps)
|
|
]
|
|
where
|
|
col = _laColor pt
|
|
(sp : ps) = _laPoints pt
|