15 lines
300 B
Haskell
15 lines
300 B
Haskell
module Dodge.Laser.Draw where
|
|
|
|
import Dodge.Data.Laser
|
|
import Picture
|
|
|
|
drawLaser :: Laser -> Picture
|
|
drawLaser pt =
|
|
setLayer BloomNoZWrite $
|
|
pictures
|
|
[ setDepth 19.5 . color (brightX 10 1 col) $ thickLine 3 ps
|
|
]
|
|
where
|
|
col = _laColor pt
|
|
ps = _laPoints pt
|