Work on bouncing debris

2025-08-02 22:14:25 +01:00
parent eeb7c8ac88
commit 5722ca8204
13 changed files with 141 additions and 1090 deletions
@@ -28,13 +28,16 @@ import qualified IntMapHelp as IM
 import qualified Data.Map.Strict as M

 testStringInit :: Universe -> [String]
-testStringInit u = map shortShow (u ^.. uvWorld . cWorld . lWorld . debris . each . to g)
-  where
-    g db = (pz,z,norm v)
-      where
-        v@(V3 _ _ z) = db ^. dbVel
-        (V3 _ _ pz) = db ^. dbPos
-        --return . foldMap (prettyLDT (show . (^. _1 . itType))) . invLDT $ _crInv cr
+testStringInit u = [show $ u ^. uvWorld . testFloat
+    , show . length $ u ^. uvWorld . cWorld . lWorld . debris
+    ]
+-- map shortShow (u ^.. uvWorld . cWorld . lWorld . debris . each . to g)
+--  where
+--    g db = (pz,z,norm v)
+--      where
+--        v@(V3 _ _ z) = db ^. dbVel
+--        (V3 _ _ pz) = db ^. dbPos
+--        --return . foldMap (prettyLDT (show . (^. _1 . itType))) . invLDT $ _crInv cr
 --  where
 --    idp = invDisplayParams $ u ^. uvWorld
 --    cfig = u ^. uvConfig