Add smoothing to feet, start new chase crit picture

src/Dodge/Creature/Picture.hs

@@ -7,6 +7,7 @@ module Dodge.Creature.Picture (
     deadScalp,
     deadUpperBody,
     deadFeet,
+    drawChaseCrit,
 ) where
 
 import Dodge.Data.Equipment.Misc
@@ -48,6 +49,16 @@ basicCrShape cr
     crsize = 0.1 * crRad (cr ^. crType)
     rotmdir = rotateSH (_crMvDir cr - _crDir cr)
 
+drawChaseCrit :: Creature -> Shape
+drawChaseCrit cr = rotmdir $ colorSH (_skinLower cskin) $ feet cr
+  where
+    cskin = crShape $ _crType cr
+    crsize = 0.1 * crRad (cr ^. crType)
+    rotmdir = rotateSH (_crMvDir cr - _crDir cr)
+
+oneSmooth :: Float -> Float
+oneSmooth x = sin (pi * x * 0.5)
+
 feet :: Creature -> Shape
 {-# INLINE feet #-}
 feet cr = case cr ^? crStance . carriage of
@@ -59,8 +70,8 @@ feet cr = case cr ^? crStance . carriage of
     aFoot = upperPrismPolyST 10 $ polyCirc 3 4
     off = 5
     sLen = _strideLength $ _crStance cr
-    --f i = 6 * (sLen - i) / sLen
-    f i = 8 * (sLen - 2*i) / sLen
+--    f i = 8 * (sLen - 2*i) / sLen
+    f i = 8 * oneSmooth ((sLen - 2*i) / sLen)
 
 deadFeet :: Creature -> Shape
 {-# INLINE deadFeet #-}