Work on Falling carriage state

2026-04-03 10:32:54 +01:00
parent 18dc469408
commit 43a5817ef3
17 changed files with 79 additions and 68 deletions
@@ -96,7 +96,7 @@ chaseUpperBody cr =  colorSH (_skinUpper cskin)
        Just (Walking sa RightForward) -> -f sa
        _ -> 0
    --tbob = 2 * oneSmooth ((sLen - 2*i) / sLen)
-    f i = ((sLen - 2*i) / sLen)
+    f i = (sLen - 2*i) / sLen
    

 oneSmooth :: Float -> Float