Make light position uniform 3d

2021-06-25 01:19:20 +02:00
parent b451953b99
commit b6feccd934
10 changed files with 40 additions and 71 deletions
@@ -189,11 +189,11 @@ placeCr crF p rot = over creatures addCr
        crs

 placeLS :: LightSource -> Picture -> Point2 -> Float -> World -> World
-placeLS ls dec p rot w = over lightSources addLS $ over decorations addDec w
+placeLS ls dec p@(x,y) rot w = over lightSources addLS $ over decorations addDec w
  where 
    addLS lss = IM.insert 
        (IM.newKey lss) 
-        (ls {_lsPos = p,_lsDir = rot,_lsID = IM.newKey lss}) 
+        (ls {_lsPos = (x,y,0),_lsDir = rot,_lsID = IM.newKey lss}) 
        lss
    addDec decs = IM.insert 
        (IM.newKey decs)