Work on Falling carriage type

2026-04-03 11:03:05 +01:00
parent 43a5817ef3
commit d65a4529be
6 changed files with 54 additions and 33 deletions
@@ -35,7 +35,12 @@ import Data.Monoid
 import RandomHelp

 testStringInit :: Universe -> [String]
-testStringInit u = u ^.. uvWorld . cWorld . lWorld . creatures . each . crPos . _z . to show
+testStringInit u = u ^.. uvWorld . cWorld . lWorld . creatures . ix 2 . crPos . _z . to show
+    <> [show v]
+  where
+    v = x - y
+    x = fromMaybe 0 $ u ^? uvWorld . cWorld . lWorld . creatures . ix 2 . crOldPos
+    y = fromMaybe 0 $ u ^? uvWorld . cWorld . lWorld . creatures . ix 2 . crOldOldPos
 --    u = [show p, show op, show oop, show (op - oop), show . norm $ op - oop, show d]
 --  where
 --    f = fromMaybe 0