module Dodge.LightSources where
import Dodge.Data
import Dodge.Base

import Geometry
import Picture

--import Graphics.Gloss
--import Graphics.Gloss.Data.Vector
--import Graphics.Gloss.Geometry.Line
--import Graphics.Gloss.Geometry.Angle

import qualified Data.IntMap.Strict as IM

lightAt p i = 
    LS {_lsID = i
       ,_lsPos = p
       ,_lsDir = 0
       ,_lsRad = 600
       ,_lsIntensity = 0.75
       }

basicLS = PutLS ls dec
    where ls = lightAt (0,0) 0
          dec = onLayer PtLayer $ color white $ circleSolid 8