17 lines
568 B
Haskell
17 lines
568 B
Haskell
module Dodge.LightSource.Torch
|
|
( createTorchLightOffset
|
|
) where
|
|
|
|
import Dodge.Data.World
|
|
import Dodge.Item.Draw -- heldItemOffset needs to be moved somewhere more sensible
|
|
import Dodge.LightSource -- this needs to be split!
|
|
import Geometry
|
|
import LensHelp
|
|
|
|
createTorchLightOffset :: Creature -> Item -> Point3 -> World -> World
|
|
createTorchLightOffset cr it off = cWorld . lWorld . tempLightSources .:~
|
|
tlsTimeRadColPos 1 250 0.7 pos
|
|
where
|
|
pos = (p +.+.+ rotate3 (_crDir cr) (heldItemOffset it cr (off +.+.+ V3 8 0 1.5)))
|
|
p = addZ 0 $ _crPos cr
|