Use grid when creating block debris

2022-07-13 10:44:18 +01:00
parent 1ccb87ff13
commit 6c50021f04
12 changed files with 139 additions and 65 deletions
@@ -13,7 +13,6 @@ decoratedBlock decf mat col h ps = PutBlock bl wl $ reverse ps
  where
    bl = defaultBlock
        & blDraw .~ (\bl' -> noPic (colorSH col (upperPrismPoly h $ reverse ps) <> decf bl'))
-        & blDeath .~ const id
        & blHeight .~ h
        & blMaterial .~ mat
    wl = defaultWall