Fix terminal shape

2026-04-10 11:19:16 +01:00
parent b197e22de7
commit f19e165571
8 changed files with 36 additions and 31 deletions
@@ -25,8 +25,8 @@ data Carriage
    | Floating
    | Flying {_zSpeed :: Float, _flyInertia :: Float}
    | Boosting Point2
-    | Falling {_fallRot :: Quaternion Float, _fallDir :: Quaternion Float}
-    | OnGround
+    | Falling {_fallRot :: Quaternion Float, _carDir :: Quaternion Float}
+    | OnGround {_carDir :: Quaternion Float}
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

 data FootForward = LeftForward | RightForward