Readd block obstruction field

This commit is contained in:
2022-07-01 18:58:21 +01:00
parent fc5d1348d9
commit ca40f315c0
3 changed files with 3 additions and 1 deletions
+1
View File
@@ -88,6 +88,7 @@ placeLineBlock basePane blockWidth depth a b gw = ( 0
, _blHP = 1000, _blShadows = shadowsAt i
, _blDir = 0 -- THIS IS NOT SENSIBLE. TODO rethink block positioning
, _blFootprint = cornersAt p -- TODO check winding (clockwise, anticlockwise)
, _blObstructs = []
, _blPos = p, _blDraw = const mempty , _blDeath = makeBlockDebris}
insertBlocks = flip (foldr insertBlock) $ zip is blockCenPs
ksAtI i = map ( + (wlid + i*4) ) [0,1,2,3]