57 lines
1.4 KiB
Haskell
57 lines
1.4 KiB
Haskell
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
|