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
@@ -6,8 +6,7 @@ import Dodge.Data.Material
 import Color

 materialColor :: Material -> Color
-materialColor =
-    withAlpha 0.5 . \case
+materialColor = \case
        Wood -> dark yellow
        Dirt -> dark $ dark orange
        Stone -> greyN 0.5