Complete stritifying points

2021-07-30 01:36:48 +02:00
parent 7b7fd302d8
commit c67feb485f
7 changed files with 18 additions and 18 deletions
@@ -99,8 +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
-    (x,y) = _crPos(you w)
-    pos = (x,y,0)
+    (V2 x y) = _crPos (you w)
+    pos = (V3 x y 0)
    ls = lightAt pos 0
    dec = onLayer PtLayer $ color white $ circleSolid 8