Simplify block drawing further, store shape of block

src/Dodge/Placement/Instance/Block.hs

@@ -1,6 +1,6 @@
 module Dodge.Placement.Instance.Block where
 
-import Shape.Data
+import Shape
 import Color
 import Dodge.Data.GenWorld
 import Dodge.Default.Block
@@ -13,12 +13,11 @@ decoratedBlock decf mat col h ps = PutBlock bl wl $ reverse ps
   where
     bl =
         defaultBlock
-            & blDraw .~ BlockDraws [BlockDrawColHeightPoss col h ps, BlockDrawBlSh decf]
+            & blDraw .~ (decf <> colorSH col (upperBox Medium Typical h ps))
+--                BlockDraws [BlockDrawColHeightPoss col h ps, BlockDrawBlSh decf]
             & blHeight .~ h
     wl =
         defaultWall
---            & wlPathFlag . at WallNotDestrucable .~ Nothing
---            & wlPathFlag . at WallBlockVisibility .~ Nothing
             & wlRotateTo .~ False
             & wlOpacity .~ SeeAbove
             & wlMaterial .~ mat