Unshadow window blocks when neighbour destroyed

2021-10-27 11:44:09 +01:00
parent 15fac3db6e
commit 8f738410c0
5 changed files with 33 additions and 13 deletions
@@ -39,7 +39,7 @@ putLineBlock basePane blockWidth depth a b w
    linesAt p = makeLoopPairs $ cornersAt p
    k = IM.newKey $ _walls w
    blid = IM.newKey $ _blocks w
-    insertBlock' i = over blocks $ IM.insert (i+blid) Block' {_blID = i + blid, _blWallIDs = ksAtI i, _blHPs = [5,5], _blShadows' = []}
+    insertBlock' i = over blocks $ IM.insert (i+blid) Block' {_blID = i + blid, _blWallIDs = ksAtI i, _blHPs = [5,5], _blShadows' = shadowsAt i}
    insertBlocks' = flip (foldr insertBlock') is
    ksAtI i = map ( + (k + i*4) ) [0,1,2,3]
    visibilityAt i