Improve carriage/stride when falling down pit

2026-03-27 00:33:19 +00:00
parent fed607681b
commit ac09ed6629
7 changed files with 119 additions and 109 deletions
@@ -34,8 +34,8 @@ import Data.Monoid
 import RandomHelp

 testStringInit :: Universe -> [String]
-testStringInit _ = []
-- a    (fmap show $ u ^.. uvWorld . cWorld . lWorld . creatures . each . crWallTouch)
+testStringInit u =
+    (fmap show $ u ^.. uvWorld . cWorld . lWorld . creatures . each . crStance . carriage . strideAmount)
 -- a    <> fromMaybe [] (do
 -- a    w1 <- u ^? uvWorld . cWorld . lWorld . walls . ix 18
 -- a    w2 <- u ^? uvWorld . cWorld . lWorld . walls . ix 61