Work on transparency of windows/clouds

2025-11-20 12:02:05 +00:00
parent 10dbb238c8
commit 6563d87247
7 changed files with 49 additions and 37 deletions
@@ -17,7 +17,7 @@ drawForceField wl =
    noShape 
        . setLayer BloomLayer
        . setDepth 20
-        . color (materialColor (wl ^. wlMaterial))
+        . color (withAlpha 0.5 $ materialColor (wl ^. wlMaterial))
        $ thickLine 5 [a, b]
  where
    (a, b) = _wlLine wl