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


tLightFade :: Int -> Float -> (Int -> Float) -> Point2 -> TempLightSource
tLightFade 0 rmax intensityF p =
    TLS { _tlsPos = p
        , _tlsRad = rmax
        , _tlsIntensity = intensityF 0
        , _tlsUpdate = \w _ -> (w, Nothing)
        }
tLightFade i rmax intensityF p =
    TLS { _tlsPos = p
        , _tlsRad = rmax
        , _tlsIntensity = intensityF i
        , _tlsUpdate = \w _ -> (w, Just $ tLightFade (i-1) rmax intensityF p)
        }

tLightRad :: Int -> Float -> Float -> Point2 -> TempLightSource
tLightRad 0 rmax rmin p =
    TLS { _tlsPos = p
        , _tlsRad = rmax
        , _tlsIntensity = 0.5
        , _tlsUpdate = \w _ -> (w, Nothing)
        }
tLightRad i rmax rmin p =
    TLS { _tlsPos = p
        , _tlsRad = rmax
        , _tlsIntensity = 0.5
        , _tlsUpdate = \w _ -> (w, Just $ tLightRad (i-1) rmax rmin p)
        }

tLightAt i p = tLightRad i 100 0 p