Cleanup, fix tank opacity

2022-03-08 10:26:51 +00:00
parent 8179a2aa4f
commit 2e1c7f2687
5 changed files with 23 additions and 19 deletions
@@ -53,7 +53,8 @@ tankRect w h col x y = shiftPlacement (V2 x y,0) $ ps0j
        $ upperPrismPoly 31 therect
        <> foldMap f [(w',-w',h',h'),(w',-w',-h',-h'),(w',w',h',-h'),(-w',-w',h',-h')]
    )
-    $ sps0 $ PutWall therect defaultWall {_wlDraw = False, _wlColor = col, _wlRotateTo = False}
+    $ sps0 $ PutWall therect defaultWall 
+        {_wlDraw = False, _wlColor = col, _wlRotateTo = False, _wlOpacity = SeeAbove}
  where
    therect = rectWH w h
    w' = w - 1.5