Work on chase crit corpse

src/Dodge/Corpse/Make.hs

@@ -1,5 +1,7 @@
 module Dodge.Corpse.Make (makeCorpse) where
 
+import qualified Quaternion as Q
+import Linear
 import Control.Lens
 import Dodge.Creature.Picture
 import Dodge.Creature.Radius
@@ -13,6 +15,7 @@ import ShapePicture
 makeCorpse :: Creature -> SPic
 makeCorpse cr = case cr ^. crType of
     HoverCrit{} -> noPic $ drawHoverCrit cr
+    ChaseCrit{} -> noPic $ chaseCorpse cr
     _ ->
         noPic
             . scaleSH (V3 crsize crsize crsize)
@@ -25,3 +28,20 @@ makeCorpse cr = case cr ^. crType of
     cskin = crShape $ _crType cr -- this should be fixed
     crsize = 0.1 * crRad (cr ^. crType)
     rotmdir = rotateSH (_crMvDir cr - _crDir cr)
+
+chaseCorpse :: Creature -> Shape
+chaseCorpse cr = mconcat
+            [colorSH (_skinUpper cskin) . upperPrismPolyHalfMI 0 $ polyCirc 3 12 
+                & each %~ vNormal
+                & each . _y *~ 0.6
+            , colorSH (_skinUpper cskin) . overPosSH (Q.apply neckq) $ 
+                (upperPrismPolyHalfMI 3 $ (+ V2 8 0) . vNormal <$> trapTBH 2 5 8)
+    , colorSH (_skinHead cskin)
+        (overPosSH (Q.apply headq) (upperBox Medium Important 2 [V2 0 (-4), V2 9 0, V2 0 4]))
+            , rotmdir $ colorSH (_skinLower cskin) $ deadFeet cr
+        ]
+  where
+    neckq = (V3 6 0 0, Q.qid)
+    cskin = crShape $ _crType cr -- this should be fixed
+    rotmdir = rotateSH (_crMvDir cr - _crDir cr)
+    headq = neckq `Q.comp` (V3 16 0 0, Q.qid )

src/Dodge/Creature/ChaseCrit.hs

@@ -36,7 +36,7 @@ hoverCrit :: Creature
 hoverCrit =
     defaultCreature
         & crName .~ "hoverCrit"
-        & crHP .~ HP 500
+        & crHP .~ HP 150
         & crType .~ HoverCrit 0
         & crFaction .~ ColorFaction blue
         & crStance . carriage .~ Flying 15 0.975

src/Dodge/Creature/Mass.hs

@@ -5,7 +5,7 @@ import Dodge.Data.Creature.Misc
 crMass :: CreatureType -> Float
 crMass = \case
     Avatar {} -> 10
-    ChaseCrit {} -> 10
+    ChaseCrit {} -> 12
     HoverCrit {} -> 5
     SwarmCrit -> 2
     AutoCrit -> 10

src/Dodge/Creature/State/WalkCycle.hs

@@ -46,7 +46,7 @@ updateCarriage' cid cr w = \case
                     & cWorld . lWorld . creatures . ix cid . crStance . carriage .~ OnGround
             else w & cWorld . lWorld . creatures . ix cid . crPos .~ ep
     OnGround {} -> w
-        & tocr . crPos +~ 0.8 *^ (cr ^. crOldPos - oop)
+        & tocr . crPos . _xy +~ 0.8 *^ (cr ^. crOldPos . _xy - oop ^. _xy)
   where
     tocr = cWorld . lWorld . creatures . ix cid
     oop = cr ^. crOldOldPos