Improve some door placement

src/Dodge/Block/Draw.hs

@@ -1,13 +0,0 @@
---{-# LANGUAGE LambdaCase #-}
-module Dodge.Block.Draw () where
---
---import Dodge.Data.Block
---import Shape
---import ShapePicture
-
---drawBlock :: BlockDraw -> SPic
---drawBlock = \case
---    BlockDrawMempty -> mempty
-----    BlockDraws bds -> foldMap drawBlock bds
-----    BlockDrawColHeightPoss col h ps ->  noPic $ colorSH col (upperBox Medium Typical h ps)
---    BlockDrawBlSh x -> noPic x