Remove BloomNoZWrite layer

src/Dodge/Item/Draw/SPic.hs

@@ -135,7 +135,8 @@ ammoMagSPic it = \case
     CHEMFUELPOUCH -> noPic $ colorSH yellow (upperBox Small Typical 3 $ polyCirc 3 5)
     BATTERY ->
         colorSH blue (upperBox Tiny Superfluous 1 (rectNSWE 0 (-2) (-2) 2))
-            :!: setLayer BloomNoZWrite (setDepth 2 . color (mixColorsFrac green red am) $ circleSolid 2)
+            :!: setLayer BloomLayer (setDepth 2 . color (mixColorsFrac green red am) $ circleSolid 2)
+            -- was nozwrite
     _ -> noPic $ upperPrismPolyTS 1 (rectNSWE 0 (- y) (-1) 1)
   where
     y = fromIntegral y' * 0.3
@@ -412,28 +413,6 @@ teslaGunPic = shatterGunSPic
 lasGunPic :: Item -> SPic
 lasGunPic _ = noPic $ colorSH blue $ upperPrismPolyST 3 $ square 4
 
---    colorSH
---        blue
---        ( upperBoxST 4 (rectNSWE 3 1 0 30)
---            <> upperBoxSU 4 (rectNSWE (-1) (-3) 0 30)
---            <> upperBoxSU 1 (rectNSWE 3 (-3) 0 30)
---        )
---        :!: mempty
-
---dualBeamPic :: Item -> SPic
---dualBeamPic it =
---    ( colorSH blue $
---        upperBoxST 4 (rectNESW gap 3 (- gap) 1)
---            <> upperBoxSU 4 (rectNESW gap (-1) (- gap) (-3))
---            <> upperBoxSU 1 (rectNESW gap 3 (- gap) (-3))
---    , setLayer BloomNoZWrite . color col . setDepth 1.1 . polygon $ rectNESW gap 1 (- gap) (-1)
---    )
---  where
---    --amFrac = fractionLoadedAmmo it
---    amFrac = 0.5
---    col = brightX 2 1.5 $ mixColors amFrac (1 - amFrac) green red
---    gap = _dbGap (_itParams it) - 3
-
 tractorGunPic :: Item -> SPic
 tractorGunPic = lasGunPic