Simplify and unify block placement

2021-03-27 02:18:37 +01:00
parent 32376022cc
commit 151fa5b6bd
8 changed files with 198 additions and 187 deletions
@@ -76,8 +76,7 @@ addBlockNoShadow (p:ps) hp col isSeeThrough degradability hasAllShadows w
    | hp <= 0 = addBlock (p:ps) (head degradability + hp) col isSeeThrough (tail degradability) w
    | otherwise = over wallsZone (flip (IM.foldr wallInZone) blocks)
      $ over walls (IM.union blocks) w
--addBlock (p:p':ps) w = over walls (IM.insert i b) w
-    where 
+  where 
        shadowList | hasAllShadows = repeat True
                   | otherwise     = concat $ repeat [False,True]
        lines = zip (p:ps) (ps ++ [p])