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