Start simplifying creature body parts/attachment positioning

2025-08-09 09:47:05 +01:00
parent 9fb7440776
commit 1063a2314d
10 changed files with 240 additions and 183 deletions
@@ -13,13 +13,13 @@ import Geometry.Data
 data Stance = Stance
    { _carriage :: Carriage
    , _posture :: Posture
-    , _strideLength :: Int
+    , _strideLength :: Float
    }
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

 data Carriage
    = Walking
-        { _strideAmount :: Int
+        { _strideAmount :: Float
        , _currentFoot :: FootForward
        }
    | Standing