Add toggle for shadows on clouds

2021-09-03 23:47:22 +01:00
parent fd85093833
commit 1ab3f1773c
6 changed files with 38 additions and 43 deletions
@@ -100,13 +100,12 @@ moveLaser phaseV pos dir w pt
      = case thHit of
          Just (p,E3x1 cr) 
              -> over (creatures . ix (_crID cr) . crState . crDamage) ((:) $ Lasering 19 pos p xp)
--                  . over worldEvents ((.) $ flareAt yellow (flarePos p))
          Just (p,E3x2 wl) -> createSparkCol 8 (V4 20 (-5) 0 1) (p +.+ safeNormalizeV (pos -.- p))
-                                                      (reflectDir wl) Nothing
+                                                      (reflectDir wl)
          _   -> id
    pic = setLayer 1 $ pictures
-        [ setDepth 19 . color (brightX 0 0.5 yellow) $ lineOfThickness 20 (pos:ps)
-        , setDepth 19.5 . color (brightX 10 1 yellow) $ lineOfThickness 3 (pos:ps)
+        [ setDepth 19   . color (brightX 0 0.5 yellow) $ lineOfThickness 20 (pos:ps)
+        , setDepth 19.5 . color (brightX 10 1 yellow)  $ lineOfThickness 3  (pos:ps)
        ]
        -- $ pictures 
        --[ fadeLine pos (head ps) 0.2 40 yellow