Reify block drawing

2022-07-25 01:27:39 +01:00
parent 486c203fa2
commit c3a5b9d5be
15 changed files with 85 additions and 23 deletions
@@ -74,7 +74,7 @@ plLineBlock basePane blwidth a b gw = ( 0
        , _blObstructs = []
        , _blMaterial = _wlMaterial basePane
        , _blHeight   = 100
-        , _blPos = p, _blDraw = const mempty }
+        , _blPos = p, _blDraw = BlockDrawMempty }
        )
    insertBlocks = flip (foldr insertBlock) $ zip is blockCenPs
    ksAtI i = map ( + (wlid + i*4) ) [0,1,2,3]