Implement smoke as clouds, mask colors when rendering framebuf texture

2021-03-23 23:24:40 +01:00
parent 3aeea1c60f
commit 3f86b0cda0
5 changed files with 61 additions and 11 deletions
@@ -17,7 +17,7 @@ basePane :: Wall
 basePane = Block
    { _wlLine = []
    , _wlID = 0
-    , _wlColor = withAlpha 0.5 cyan
+    , _wlColor = withAlpha 0.2 cyan
    , _wlDraw = Nothing
    , _wlSeen = False
    , _blIDs = []