Simplify block drawing further, store shape of block

2025-10-24 19:39:44 +01:00
parent ffea3a1694
commit 95b4105f52
9 changed files with 143 additions and 163 deletions
@@ -79,7 +79,7 @@ plLineBlock basePane blwidth a b gw =
                        , _blFootprint = cornersAt p -- TODO check winding (clockwise, anticlockwise)
                        , _blHeight = 100
                        , _blPos = p
-                        , _blDraw = BlockDrawMempty
+                        , _blDraw = mempty
                        }
                )
    insertBlocks = flip (foldr insertBlock) $ zip is blockCenPs