Tweak clouds

2025-06-24 16:40:00 +01:00
parent 03bc733de9
commit 35a3f005c4
4 changed files with 16 additions and 30 deletions
@@ -41,7 +41,7 @@ clColor = \case
    Dust mt -> materialColor mt

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