Reenable mid layer rendering, may remove bottom layer rendering

src/Dodge/Item/Draw/SPic.hs

@@ -59,11 +59,17 @@ ammoMagSPic it = \case
     TINMAG -> noPic $ upperPrismPolyTS 1 (reverse $ rectNSWE 0 (- y) (-1) 1)
     DRUMMAG -> noPic $ upperPrismPolyTS 1 (reverse $ rectNSWE 0 (- y) (-1) 1)
     CHEMFUELPOUCH -> (colorSH yellow (upperPrismPolyST 3 $ polyCirc 3 5)
-        , mempty)
+        , setLayer MidLayer . color black $ translate3 (V3 0 0 4) $ circleSolid (5 * am)
+        )
     _ -> noPic $ upperPrismPolyTS 1 (reverse $ rectNSWE 0 (- y) (-1) 1)
   where
     y = fromIntegral y' * 0.3
     y' = fromMaybe 0 $ it ^? itUse . amagLoadStatus . iaLoaded
+    am = fractionLoadedAmmo2 (it ^?! itUse . amagLoadStatus)
+
+fractionLoadedAmmo2 :: ReloadStatus -> Float
+fractionLoadedAmmo2 rs = 
+    1 - (1 - fromIntegral (_iaLoaded rs) / fromIntegral (_iaMax rs)) ** 2
 
 equipItemSPic :: EquipItemType -> Item -> SPic
 equipItemSPic et _ = case et of
@@ -452,11 +458,11 @@ flamerPic _ =
     --, color black $ translate3 (V3 tx ty (tz + 0.01)) $ circleSolid (r * am)
 --    , color black $ translate3 (V3 tx ty (tz + 0.01)) $ circleSolid (r * 0.5)
     )
-  where
-    tx = 4
-    ty = - 6
-    tz = 3
-    r = 5
+--  where
+--    tx = 4
+--    ty = - 6
+--    tz = 3
+--    r = 5
 --    am = fractionLoadedAmmo2 it
 
 launcherPic :: Item -> SPic