Partially implement grenades down chasms

2025-08-04 09:39:04 +01:00
parent 2a93b7f733
commit a68013b934
6 changed files with 103 additions and 79 deletions
@@ -28,9 +28,8 @@ import qualified IntMapHelp as IM
 import qualified Data.Map.Strict as M

 testStringInit :: Universe -> [String]
-testStringInit u = [show $ u ^. uvWorld . testFloat
-    , show . length $ u ^. uvWorld . cWorld . lWorld . debris
-    ]
+testStringInit u =
+    map show (u ^.. uvWorld . cWorld . lWorld . projectiles . each . pjZVel)
 -- map shortShow (u ^.. uvWorld . cWorld . lWorld . debris . each . to g)
 --  where
 --    g db = (pz,z,norm v)