Make projectile use 3d position/velocity records

2025-08-04 12:15:42 +01:00
parent 80d6133fd6
commit 7714e2e298
7 changed files with 80 additions and 84 deletions
@@ -29,7 +29,7 @@ import qualified Data.Map.Strict as M

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