Improve falling, hover corpse

src/Dodge/Corpse/Make.hs

@@ -11,7 +11,9 @@ import Shape
 import ShapePicture
 
 makeCorpse :: Creature -> SPic
-makeCorpse cr =
+makeCorpse cr = case cr ^. crType of
+    HoverCrit{} -> noPic $ drawHoverCrit cr
+    _ ->
         noPic
             . scaleSH (V3 crsize crsize crsize)
             $ mconcat

src/Dodge/Creature/State/WalkCycle.hs

@@ -39,7 +39,7 @@ updateCarriage' cid cr w = \case
     Falling {} -> 
         let v = 0.95 *^ (cr ^. crOldPos - oop & _z -~ 0.5)
             ep = cr ^. crPos + v
-        in if ep ^. _z < 0 && 
+        in if ep ^. _z < 0 && cr ^. crOldPos . _z >= 0 &&
                 (not (any (pointInPoly (ep ^. _xy)) (w ^. cWorld . chasms))
                     || any (uncurry $ crOnSeg cr) (w ^. cWorld . cliffs))
             then w & tocr . crPos .~ (ep & _z .~ 0)

src/Dodge/Prop/Draw.hs

@@ -19,10 +19,10 @@ debrisSPic db = translateSP (_dbPos db & _z +~ 1) . overPosSP (Q.rotate (_dbRot
     case db ^. dbType of
         Gib x col -> noPic $ drawGib x col
         BlockDebris m -> noPic . colorSH m $ cubeShape 4
-        --MetalDebris c -> noPic . colorSH c $ upperPrismPolySU 1 $ [0, V2 5 0, V2 4 2]
-        MetalDebris c -> noPic . colorSH c $ upperPrismPolySU 1 [0, V2 8 0, V2 6 3]
-        --MetalDebris c -> noPic . colorSH c $ upperPrismPolySU 1 $ [0, V2 10 0, V2 8 4]
-        GlassDebris -> noPic . colorSH azure $ upperPrismPoly Small Undesired 1 [0, V2 8 0, V2 6 3]
+        MetalDebris c -> noPic . colorSH c $ upperBox Small Undesired 1 jagshape
+        GlassDebris -> noPic . colorSH azure $ upperPrismPoly Small Undesired 1 jagshape
+  where
+    jagshape = [0, V2 8 0, V2 6 3] & each -~ V2 4 1.5
 
 propSPic :: Prop -> SPic
 propSPic pr =

src/Dodge/TestString.hs

@@ -39,6 +39,7 @@ tocrs = uvWorld . cWorld . lWorld . creatures
 
 testStringInit :: Universe -> [String]
 testStringInit u = u ^.. tocrs . each . crStance . carriage . to show
+    <> u ^.. tocrs . each . crPos . _z . to show
 
 --  where
 --    tocr = uvWorld . cWorld . lWorld . creatures . ix 0