Add line shadow shader

2021-06-26 22:20:41 +02:00
parent 726cd425f2
commit 06f22a3ea5
21 changed files with 128 additions and 74 deletions
@@ -99,7 +99,8 @@ escapeMap w = w & carteDisplay .~ False
 dropLight :: World -> World
 dropLight w = placeLS ls dec pos 0 w
  where --(rot, g) = randomR (-pi,pi) $ _randGen w
-    pos = _crPos(you w)
+    (x,y) = _crPos(you w)
+    pos = (x,y,0)
    ls = lightAt pos 0
    dec = onLayer PtLayer $ color white $ circleSolid 8