15 lines
375 B
Haskell
15 lines
375 B
Haskell
module Dodge.LightSource.Draw where
|
|
|
|
import Dodge.Data.LightSource
|
|
import Geometry.Data
|
|
import Picture
|
|
|
|
drawLightSource :: LightSource -> Picture
|
|
drawLightSource = defLSPic
|
|
|
|
defLSPic :: LightSource -> Picture
|
|
defLSPic ls = setLayer BloomNoZWrite . translate3 (_lsPos $ _lsParam ls) . color col $ circleSolid 4
|
|
where
|
|
col = V4 r g b 2
|
|
V3 r g b = _lsCol $ _lsParam ls
|