Track slime amount using ints

src/Dodge/Creature/Picture.hs

@@ -64,7 +64,7 @@ drawSlimeCrit cr = colorSH green
     & each %~ rotateV (-cr ^. crDir)
     & each %~ (((r-cr^?!crType.slimeRadWobble)/r) *^)
   where
-    r = cr ^?! crType . slimeRad
+    r = cr ^?! crType . slimeSlime . to slimeToRad
     p = cr ^?! crType . slimeCompression
     d = normalize p
     s = norm p / r
@@ -131,7 +131,7 @@ drawBeeCrit cr = colorSH col
     col | cr ^?! crType . beeAggro > 0 = red
         | otherwise = yellow
     f   | Mounted {} <- cr ^. crStance . carriage
-            = each . sfVs . each . _xy %~ scaleAlong (V2 0 1) (1 + g ( modTo 1 (cr ^?! crType . beeSlime)))
+            = each . sfVs . each . _xy %~ scaleAlong (V2 0 1) (1 + g ( modTo 1 (cr ^?! crType . beeSlime . to ((/100) . fromIntegral))))
         | otherwise = id
     g x | x > 0.5 = 1 - x
         | otherwise = x