Refactor, try to limit dependencies
This commit is contained in:
@@ -1,12 +1,18 @@
|
||||
module Dodge.LightSource.Torch where
|
||||
import Dodge.Data
|
||||
|
||||
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
|
||||
import Dodge.Item.Draw -- heldItemOffset needs to be moved somewhere more sensible
|
||||
import Dodge.LightSource -- this needs to be split!
|
||||
|
||||
createTorchLightOffset :: Creature -> Item -> Point3 -> World -> World
|
||||
createTorchLightOffset cr it off = cWorld . tempLightSources .:~ tlsTimeRadColPos 1 250 0.7
|
||||
(p +.+.+ rotate3 (_crDir cr) (heldItemOffset it cr (off +.+.+ V3 8 0 1.5)))
|
||||
createTorchLightOffset cr it off =
|
||||
cWorld . tempLightSources
|
||||
.:~ tlsTimeRadColPos
|
||||
1
|
||||
250
|
||||
0.7
|
||||
(p +.+.+ rotate3 (_crDir cr) (heldItemOffset it cr (off +.+.+ V3 8 0 1.5)))
|
||||
where
|
||||
p = addZ 0 $ _crPos cr
|
||||
|
||||
Reference in New Issue
Block a user