54 lines
1.2 KiB
Haskell
54 lines
1.2 KiB
Haskell
module Dodge.LightSources where
|
|
import Dodge.Data
|
|
import Dodge.Base
|
|
import Dodge.Picture.Layer
|
|
import Dodge.LevelGen.Data
|
|
import Geometry
|
|
import Picture
|
|
|
|
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
|