justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Simplify projectile wall bounce

Browse Source
This commit is contained in:
justin
2025-08-05 09:15:10 +01:00
parent 298238d594
commit b433c1de43
4 changed files with 45 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/TestString.hs
+3 -1
View File
@@ -29,7 +29,9 @@ import qualified Data.Map.Strict as M
testStringInit :: Universe -> [String]
testStringInit u =
map show (u ^.. uvWorld . cWorld . lWorld . projectiles . each . pjVel . _z)
map show (take 20 $ u ^.. uvWorld . cWorld . lWorld . energyBalls . each . ebPos . _z)
<>
map show (take 20 $ u ^.. uvWorld . cWorld . lWorld . shockwaves . each . swPos . _z)
-- map shortShow (u ^.. uvWorld . cWorld . lWorld . debris . each . to g)
-- where
-- g db = (pz,z,norm v)