Separate out concrete part of world

2022-07-25 12:10:50 +01:00
parent 3354d108be
commit b2efbd2b3e
134 changed files with 933 additions and 930 deletions
@@ -6,7 +6,7 @@ import Dodge.Item.Draw  -- heldItemOffset needs to be moved somewhere more sensi
 import Dodge.LightSource -- this needs to be split!

 createTorchLightOffset :: Creature -> Item -> Point3 -> World -> World
-createTorchLightOffset cr it off = tempLightSources .:~ tlsTimeRadColPos 1 250 0.7 
+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