Fix low block drawing bug

2025-10-23 22:48:06 +01:00
parent cba0f36ac5
commit 8f17582889
3 changed files with 8 additions and 6 deletions
@@ -12,13 +12,11 @@ decoratedBlock decf mat col h ps = PutBlock bl wl $ reverse ps
  where
    bl =
        defaultBlock
-            & blDraw .~ BlockDraws [BlockDrawColHeightPoss col h (reverse ps), BlockDrawBlSh decf]
-            --(\bl' -> noPic (colorSH col (upperPrismPoly h $ reverse ps) <> decf bl'))
+            & blDraw .~ BlockDraws [BlockDrawColHeightPoss col h ps, BlockDrawBlSh decf]
            & blHeight .~ h
            & blMaterial .~ mat
    wl =
        defaultWall
--            & wlColor .~ col
            & wlRotateTo .~ False
            & wlOpacity .~ SeeAbove
            & wlMaterial .~ mat