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