26 lines
528 B
Haskell
26 lines
528 B
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
|