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
@@ -46,7 +46,7 @@ advanceStepCounter speed = crStance . carriage %~ f
  where
    f car = case car of
        Standing -> f (Walking 0 RightForward)
-        Walking i ff -> Walking (i + ceiling speed) ff
+        Walking i ff -> Walking (i + speed) ff
        _ -> car

 creatureTurnTo :: Point2 -> Creature -> Creature