Make background black, start cleanup of weapons

2021-08-26 21:18:46 +01:00
parent cb39ee3e6b
commit c97c16777a
9 changed files with 34 additions and 16 deletions
@@ -57,7 +57,7 @@ pjTimerF time i = projectiles . ix i . pjUpdate .~ (\_ -> pjTimerF (time - 1) i)
 drawDDA :: IM.IntMap IS.IntSet -> Picture
 drawDDA = setLayer 1 . color (withAlpha 0.5 green) . IM.foldlWithKey' f blank
  where
-    f pic x' ys' = (concatMapPic (\y -> polygon (rectNSEW (y+50) y (x+50) x)) ys) `appendPic` pic
+    f pic x' ys' = concatMapPic (\y -> polygon (rectNSEW (y+50) y (x+50) x)) ys `appendPic` pic
      where
        x = 50 * fromIntegral x'
        ys = map ((50 *) . fromIntegral) $ IS.toList ys'