Stop bullets drawing over extended top of walls

2021-03-22 00:46:54 +01:00
parent f19f879945
commit 5c23e0a348
3 changed files with 6 additions and 16 deletions
@@ -724,9 +724,6 @@ crInPolygon cr xs = errorPointInPolygon 3 (_crPos cr) xs
 onLayer :: Layer -> Picture -> Picture
 onLayer l = setDepth $ 1 - fromIntegral (levLayer l) / 100

--onLayer :: Layer -> Picture -> [(Picture, [Int])]
--onLayer l p = [(p, [levLayer l])]
-
 onLayerL :: [Int] -> Picture -> Picture
 onLayerL is = setDepth (1 - (sum $ zipWith (/) (map fromIntegral is) $ map (\x->100**x) [1..]))